結果

問題 No.658 テトラナッチ数列 Hard
コンテスト
ユーザー %20
提出日時 2018-03-02 22:55:07
言語 Perl
(5.42.1)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
TLE  
実行時間 -
コード長 352 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 544 ms
コンパイル使用メモリ 7,840 KB
実行使用メモリ 22,736 KB
最終ジャッジ日時 2026-03-06 11:20:54
合計ジャッジ時間 22,430 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 1 TLE * 7
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

sub f{my@r;
	for$y(0..3){
		for$x(0..3){
			for(0..3){
				($r[4*$y+$x]+=$Z[4*$y+$_]*$_[4*$_+$x])%=17
			}
		}
	}
	@Z=@r
}

<>;
for(<>){
	$n=$_-1;
	@Z=(1,0,0,0,
	    0,1,0,0,
	    0,0,1,0,
	    0,0,0,1);
	f(@Z),$n>>$_&1&&f(1,1,1,1,
	                  1,0,0,0,
	                  0,1,0,0,
	                  0,0,1,0)for reverse 0..59;
	print$Z[12],$/
}
0