結果

問題 No.658 テトラナッチ数列 Hard
コンテスト
ユーザー ciel
提出日時 2017-12-29 19:17:13
言語 Crystal
(1.19.1)
コンパイル:
crystal build -Donline_judge -o a.out --release --no-debug _filename_
実行:
./a.out
結果
WA  
実行時間 -
コード長 415 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 10,768 ms
コンパイル使用メモリ 338,768 KB
実行使用メモリ 15,820 KB
最終ジャッジ日時 2026-03-21 04:49:48
合計ジャッジ時間 19,001 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample WA * 2 RE * 1
other WA * 1 RE * 4 TLE * 3
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

#!/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_i
	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