結果

問題 No.658 テトラナッチ数列 Hard
ユーザー ciel
提出日時 2017-12-29 19:17:59
言語 Crystal
(1.14.0)
結果
WA  
(最新)
AC  
(最初)
実行時間 -
コード長 417 bytes
コンパイル時間 11,754 ms
コンパイル使用メモリ 295,756 KB
実行使用メモリ 13,760 KB
最終ジャッジ日時 2024-06-30 19:17:36
合計ジャッジ時間 15,680 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample WA * 3
other WA * 1 TLE * 1 -- * 6
権限があれば一括ダウンロードができます

ソースコード

diff # 

#!/usr/bin/env crystal
M=17
def mul(a,b)
	r=a.size.times.map{[0]*b[0].size}.to_a
	a.size.times{|y|
		b[0].size.times{|x|
			r[y][x]=b.size.times.reduce(0){|s,i|(s+a[y][i]*b[i][x])%M}
		}
	}
	r
end
A=[[1,1,1,1],[1,0,0,0],[0,1,0,0],[0,0,1,0]]
E=[[1,0,0,0],[0,1,0,0],[0,0,1,0],[0,0,0,1]]
gets.not_nil!.to_i.times{
	n=gets.not_nil!.to_i64
	a=A
	e=E
	while n>0
		e=mul(a,e) if n%2>0
		a=mul(a,a)
		n/=2
	end
	p e[-1][-1]
}
0