結果
問題 | No.658 テトラナッチ数列 Hard |
ユーザー |
|
提出日時 | 2019-01-17 20:29:37 |
言語 | Nim (2.2.0) |
結果 |
AC
|
実行時間 | 3 ms / 2,000 ms |
コード長 | 1,225 bytes |
コンパイル時間 | 2,186 ms |
コンパイル使用メモリ | 60,812 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-07-01 10:11:31 |
合計ジャッジ時間 | 2,771 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 8 |
ソースコード
proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .} proc scan(): int = while true: var k = getchar_unlocked() if k < '0' or k > '9': break else: result = 10 * result + k.ord - '0'.ord template times*(n:int,body) = (for _ in 0..<n: body) proc putchar_unlocked(c:char){.header: "<stdio.h>" .} proc printInt(a:int,skipLeavingZeros:bool = false) = if a == 0: putchar_unlocked('0') return var n = a var rev = a var cnt = 0 while rev mod 10 == 0: cnt += 1 rev = rev div 10 rev = 0 while n != 0: rev = (rev shl 3) + (rev shl 1) + n mod 10 n = n div 10 while rev != 0: putchar_unlocked((rev mod 10 + '0'.ord).chr) rev = rev div 10 if not skipLeavingZeros: while cnt != 0: putchar_unlocked('0') cnt -= 1 const ts = (proc() : seq[int]= var (a,b,c,d) = (0,0,0,1) var n = 0 var ts = @[0,0,0,0,1] while true: (a,b,c,d) = (b,c,d,(a+b+c+d) mod 17) if a == 0 and b == 0 and c == 0 and d == 1 : break n += 1 ts &= d return ts )() proc getTet(n:int):int = if n < ts.len : return ts[n] return ts[4 + (n-4) mod (ts.len - 4)] let q = scan() q.times: printInt(scan().getTet()) putchar_unlocked('\n')