結果
問題 | No.351 市松スライドパズル |
ユーザー | %20 |
提出日時 | 2018-05-28 17:34:26 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 1,019 ms / 2,000 ms |
コード長 | 173 bytes |
コンパイル時間 | 121 ms |
コンパイル使用メモリ | 5,260 KB |
実行使用メモリ | 153,452 KB |
最終ジャッジ日時 | 2023-09-12 20:08:16 |
合計ジャッジ時間 | 12,955 ms |
ジャッジサーバーID (参考情報) |
judge15 / judge11 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 1,019 ms
153,220 KB |
testcase_01 | AC | 6 ms
5,172 KB |
testcase_02 | AC | 6 ms
5,200 KB |
testcase_03 | AC | 6 ms
5,264 KB |
testcase_04 | AC | 6 ms
5,160 KB |
testcase_05 | AC | 5 ms
5,140 KB |
testcase_06 | AC | 6 ms
5,092 KB |
testcase_07 | AC | 6 ms
5,292 KB |
testcase_08 | AC | 6 ms
5,072 KB |
testcase_09 | AC | 5 ms
5,064 KB |
testcase_10 | AC | 6 ms
5,072 KB |
testcase_11 | AC | 6 ms
5,268 KB |
testcase_12 | AC | 6 ms
5,200 KB |
testcase_13 | AC | 865 ms
149,844 KB |
testcase_14 | AC | 869 ms
150,696 KB |
testcase_15 | AC | 896 ms
153,052 KB |
testcase_16 | AC | 896 ms
153,316 KB |
testcase_17 | AC | 963 ms
153,216 KB |
testcase_18 | AC | 959 ms
153,452 KB |
testcase_19 | AC | 895 ms
153,408 KB |
testcase_20 | AC | 899 ms
153,216 KB |
コンパイルメッセージ
Unquoted string "black" may clash with future reserved word at Main.pl line 15. Unquoted string "white" may clash with future reserved word at Main.pl line 15. Main.pl syntax OK
ソースコード
($H,$W)=glob<>; <>; for(reverse<>){ ($S,$K)=split; if($S eq'R'){ if($K==$y){ $x=($x-1)%$W } }else{ if($K==$x){ $y=($y-1)%$H } } } print$x+$y&1?black:white