#358438 (Perl) No.842 初詣 - yukicoder

提出ソース

結果

問題	No.842 初詣
ユーザー	kotatsugame
提出日時	2019-07-09 20:18:49
言語	Perl (5.38.2)
結果	WA
実行時間	-
コード長	77 bytes
コンパイル時間	98 ms
コンパイル使用メモリ	6,948 KB
実行使用メモリ	6,824 KB
最終ジャッジ日時	2024-10-12 14:04:58
合計ジャッジ時間	952 ms
ジャッジサーバーID （参考情報）	judge1 / judge2

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	4 ms 6,816 KB
testcase_01	AC	4 ms 6,816 KB
testcase_02	WA	-
testcase_03	AC	3 ms 6,816 KB
testcase_04	AC	3 ms 6,816 KB
testcase_05	AC	4 ms 6,820 KB
testcase_06	WA	-
testcase_07	WA	-
testcase_08	WA	-
testcase_09	AC	3 ms 6,816 KB
testcase_10	AC	4 ms 6,816 KB
testcase_11	WA	-
testcase_12	AC	3 ms 6,816 KB
testcase_13	AC	3 ms 6,820 KB
testcase_14	WA	-
testcase_15	WA	-
testcase_16	WA	-
testcase_17	AC	4 ms 6,820 KB
testcase_18	AC	3 ms 6,816 KB
testcase_19	AC	3 ms 6,816 KB
testcase_20	WA	-

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

コンパイルメッセージ

Useless use of repeat (x) in void context at Main.pl line 1.
Name "main::G" used only once: possible typo at Main.pl line 1.
Main.pl syntax OK

ソースコード

raw source code

$==1e3;map$_>$%or$%-=$_,($=/=--$|?2:5)x$_ for<>=~/\d+ /g,$%=$';print$G?NO:YES

0