結果

問題 No.239 にゃんぱすー
ユーザー tails
提出日時 2015-07-10 22:24:55
言語 Perl
(5.16.3)
結果
AC  
実行時間 10 ms
コード長 102 Byte
コンパイル時間 44 ms
使用メモリ 8,920 KB
最終ジャッジ日時 2019-09-18 13:42:01

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
challenge01.txt AC 4 ms
6,872 KB
challenge02.txt AC 5 ms
6,876 KB
challenge03.txt AC 4 ms
6,872 KB
sample1.txt AC 5 ms
6,872 KB
sample2.txt AC 4 ms
6,872 KB
sample3.txt AC 4 ms
6,876 KB
sample4.txt AC 4 ms
6,872 KB
test1.txt AC 4 ms
6,876 KB
test2.txt AC 4 ms
6,872 KB
test3.txt AC 5 ms
6,876 KB
test4.txt AC 4 ms
6,876 KB
test5.txt AC 4 ms
6,872 KB
test6.txt AC 5 ms
6,876 KB
test7.txt AC 5 ms
6,872 KB
test8.txt AC 5 ms
6,872 KB
test9.txt AC 5 ms
6,872 KB
test10.txt AC 6 ms
6,872 KB
test11.txt AC 6 ms
6,872 KB
test12.txt AC 6 ms
6,876 KB
test13.txt AC 6 ms
6,872 KB
test14.txt AC 8 ms
8,912 KB
test15.txt AC 8 ms
6,872 KB
test16.txt AC 8 ms
6,872 KB
test17.txt AC 8 ms
6,872 KB
test18.txt AC 8 ms
6,872 KB
test19.txt AC 10 ms
8,920 KB
test20.txt AC 10 ms
6,872 KB
test21.txt AC 4 ms
6,872 KB
test22.txt AC 5 ms
6,876 KB
test23.txt AC 5 ms
6,872 KB
test24.txt AC 6 ms
6,876 KB
test25.txt AC 6 ms
6,876 KB
test26.txt AC 7 ms
6,876 KB
test27.txt AC 8 ms
6,876 KB
test28.txt AC 7 ms
6,876 KB
test29.txt AC 9 ms
6,876 KB
test30.txt AC 10 ms
6,872 KB
テストケース一括ダウンロード
コンパイルメッセージ
Unquoted string "nyanpass" may clash with future reserved word at Main.pl line 2.
Main.pl syntax OK

ソースコード

diff #
@i=0..99;
<>;for(<>){@a=/\S+/g;@i=grep{$t=$a[$_];$t eq '-' || $t eq nyanpass}@i}
print @i==1?"@i"+1:-1
0