結果

問題 No.1831 Parasol
ユーザー hirayuu_yc
提出日時 2024-11-15 13:01:46
言語 Nim
(2.2.0)
結果
AC  
実行時間 18 ms / 2,000 ms
コード長 1,541 bytes
コンパイル時間 5,045 ms
コンパイル使用メモリ 76,160 KB
実行使用メモリ 9,728 KB
最終ジャッジ日時 2024-11-15 13:01:53
合計ジャッジ時間 5,726 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other AC * 19
権限があれば一括ダウンロードができます

ソースコード

diff # 

{.warning[UnusedImport]: off.}
import algorithm,sequtils,tables,math,sets,strutils,sugar,heapqueue,deques,bitops,re,streams
let outstream=newFileStream(stdout)
proc input():string{.inline.}=stdin.readLine
proc print(args:varargs[string,`$`]):void{.inline.}=stdout.writeLine(args)
proc debug(args:varargs[string,`$`]):void{.inline.}=stderr.writeLine(args)
proc flush():void{.inline.}=flush(outstream)
proc `%`(x:int,y:int):int{.inline.}=((x mod y)+y) mod y
proc `//`(x:int,y:int):int{.inline.}=((x)-(x%y)) div y
proc `%=`(x:var int,y:int):void{.inline.}=x=x%y
proc `//=`(x:var int,y:int):void{.inline.}=x=x//y
proc `**`(x:int,y:int):int{.inline.}=x^y
proc `**`(x:float,y:int):float{.inline.}=x^y
proc `^`(x:int,y:int):int{.inline.}=x xor y
proc `&`(x:int,y:int):int{.inline.}=x and y
proc `|`(x:int,y:int):int{.inline.}=x or y
proc `<<`(x:int,y:int):int{.inline.}=x shl y
proc `>>`(x:int,y:int):int{.inline.}=x shr y
proc `~`(x:int):int{.inline.}=not x
proc `^=`(x:var int,y:int):void{.inline.}=x=x xor y
proc `&=`(x:var int,y:int):void{.inline.}=x=x and y
proc `|=`(x:var int,y:int):void{.inline.}=x=x or y
proc `<<=`(x:var int,y:int):void{.inline.}=x=x shl y
proc `>>=`(x:var int,y:int):void{.inline.}=x=x shr y
var N=input().parseInt
var ans=newSeq[seq[int]](N*2-1)
for i in 0..<N-1:
    for j in 0..<N*2-1-i:
        ans[j].add(N*2-1-i)
var cnt=N*2-3
for i in 2..N:
    for j in 0..<2:
        ans[cnt].add(i)
        cnt-=1
    for j in 0..<i-2:
        ans[N*2-2-j].add(i)
ans[N*2-2].add(1)
print N*2-1
for a in ans:
    print a.join" "
0