#228099 (Perl) No.629 グラフの中に眠る門松列

• 問題: No.629 グラフの中に眠る門松列
• ユーザー: %20
• 提出日時: 2018-01-05 23:45:43
• 言語: Perl (5.38.2)
• 結果: WA
• 実行時間: -
• コード長: 129 bytes
• コンパイル時間: 192 ms
• コンパイル使用メモリ: 5,380 KB
• 実行使用メモリ: 6,448 KB
• 最終ジャッジ日時: 2023-08-24 21:19:04
• 合計ジャッジ時間: 2,112 ms
• ジャッジサーバーID （参考情報）: judge12 / judge14

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	6 ms; 5,240 KB
testcase_01	AC	6 ms; 5,060 KB
testcase_02	WA	-
testcase_03	WA	-
testcase_04	AC	6 ms; 5,112 KB
testcase_05	WA	-
testcase_06	AC	6 ms; 5,032 KB
testcase_07	AC	6 ms; 5,128 KB
testcase_08	AC	6 ms; 5,292 KB
testcase_09	WA	-
testcase_10	AC	6 ms; 5,188 KB
testcase_11	AC	6 ms; 5,240 KB
testcase_12	WA	-
testcase_13	AC	6 ms; 5,284 KB
testcase_14	WA	-
testcase_15	AC	6 ms; 5,064 KB
testcase_16	AC	6 ms; 5,184 KB
testcase_17	AC	6 ms; 5,028 KB
testcase_18	AC	6 ms; 5,176 KB
testcase_19	AC	6 ms; 5,060 KB
testcase_20	AC	6 ms; 5,060 KB
testcase_21	WA	-
testcase_22	AC	11 ms; 6,160 KB
testcase_23	AC	11 ms; 6,060 KB
testcase_24	AC	11 ms; 5,736 KB
testcase_25	WA	-
testcase_26	AC	12 ms; 5,704 KB
testcase_27	AC	16 ms; 6,312 KB
testcase_28	AC	10 ms; 5,816 KB
testcase_29	AC	14 ms; 6,264 KB
testcase_30	AC	15 ms; 6,268 KB
testcase_31	AC	15 ms; 6,376 KB
testcase_32	AC	15 ms; 6,184 KB
testcase_33	AC	16 ms; 6,256 KB
testcase_34	AC	14 ms; 6,320 KB
testcase_35	AC	14 ms; 6,056 KB
testcase_36	AC	15 ms; 6,448 KB
testcase_37	WA	-
testcase_38	AC	16 ms; 6,356 KB
testcase_39	AC	14 ms; 6,176 KB
testcase_40	AC	12 ms; 6,264 KB
testcase_41	AC	13 ms; 6,096 KB

コンパイルメッセージ

Name "main::i" used only once: possible typo at Main.pl line 1.
Main.pl syntax OK

ソースコード

<>;@a=(0,glob<>);/ /,${$`}{$a[$']}=${$'+0}{$a[$`]}=0for<>;print grep(/^/*(1<grep$_>$',@_=keys%{++$i})|(1<grep$_<$',@_),@a)?YES:NO