#943291 (Perl) No.2600 Avator Height - yukicoder

提出ソース

結果

問題	No.2600 Avator Height
ユーザー	tails
提出日時	2024-01-12 21:49:15
言語	Perl (5.38.2)
結果	AC
実行時間	443 ms / 2,000 ms
コード長	135 bytes
コンパイル時間	199 ms
コンパイル使用メモリ	6,812 KB
実行使用メモリ	52,608 KB
最終ジャッジ日時	2024-09-27 21:55:02
合計ジャッジ時間	13,423 ms
ジャッジサーバーID （参考情報）	judge5 / judge1

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	153 ms 18,048 KB
testcase_01	AC	443 ms 52,480 KB
testcase_02	AC	432 ms 52,480 KB
testcase_03	AC	435 ms 52,608 KB
testcase_04	AC	433 ms 52,480 KB
testcase_05	AC	430 ms 52,608 KB
testcase_06	AC	428 ms 52,480 KB
testcase_07	AC	435 ms 52,480 KB
testcase_08	AC	431 ms 52,480 KB
testcase_09	AC	428 ms 52,608 KB
testcase_10	AC	431 ms 52,480 KB
testcase_11	AC	434 ms 52,352 KB
testcase_12	AC	419 ms 52,352 KB
testcase_13	AC	434 ms 52,352 KB
testcase_14	AC	427 ms 52,480 KB
testcase_15	AC	423 ms 52,480 KB
testcase_16	AC	429 ms 52,480 KB
testcase_17	AC	419 ms 52,480 KB
testcase_18	AC	413 ms 52,480 KB
testcase_19	AC	423 ms 52,480 KB
testcase_20	AC	415 ms 52,480 KB
testcase_21	AC	437 ms 52,608 KB
testcase_22	AC	428 ms 52,608 KB
testcase_23	AC	432 ms 52,480 KB
testcase_24	AC	344 ms 52,480 KB
testcase_25	AC	346 ms 52,480 KB

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

$m=998244353;
for$v(0,2){
	@$v=($v,1);
	$$v[$_]=($$v[-1]+$$v[-2])%$m for 2..2e5;
}
<>;
print+($0[$_]**2%$m*5%$m-$2[$_]**2)%$m,$/for<>;

0