結果

問題 No.1831 Parasol
ユーザー hirayuu_yc
提出日時 2024-11-15 12:59:56
言語 Nim
(2.2.0)
結果
WA  
実行時間 -
コード長 1,537 bytes
コンパイル時間 3,755 ms
コンパイル使用メモリ 76,560 KB
実行使用メモリ 9,728 KB
最終ジャッジ日時 2024-11-15 13:00:06
合計ジャッジ時間 7,805 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other AC * 1 WA * 18
権限があれば一括ダウンロードができます

ソースコード

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=0
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