結果

問題 No.533 Mysterious Stairs
コンテスト
ユーザー %20
提出日時 2017-06-23 23:58:07
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 217 bytes
コンパイル時間 102 ms
コンパイル使用メモリ 6,696 KB
実行使用メモリ 218,752 KB
最終ジャッジ日時 2024-10-04 08:09:55
合計ジャッジ時間 5,220 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 26 WA * 2
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

@_=([1,0,0],[0,1,0],[1,1,1]);
	$_[$_][0]=($_[$_-1][1]+$_[$_-1][2])%(1e9+7),
	$_[$_][1]=($_[$_-2][0]+$_[$_-2][2])%(1e9+7),
	$_[$_][2]=($_[$_-3][0]+$_[$_-3][1])%(1e9+7)
for 3..<>-1;
print eval(join'+',@{pop@_})%(1e9+7)
0