#97219 (Perl) No.154 市バス - yukicoder

提出ソース

結果

問題	No.154 市バス
ユーザー	angel_p_57
提出日時	2016-06-10 21:25:12
言語	Perl (5.38.2)
結果	AC
実行時間	728 ms / 2,000 ms
コード長	122 bytes
コンパイル時間	79 ms
コンパイル使用メモリ	6,692 KB
実行使用メモリ	6,656 KB
最終ジャッジ日時	2024-10-13 08:22:57
合計ジャッジ時間	3,260 ms
ジャッジサーバーID （参考情報）	judge4 / judge2

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	302 ms 6,656 KB
testcase_01	AC	303 ms 6,528 KB
testcase_02	AC	304 ms 6,656 KB
testcase_03	AC	292 ms 6,656 KB
testcase_04	AC	306 ms 6,528 KB
testcase_05	AC	3 ms 5,248 KB
testcase_06	AC	4 ms 5,248 KB
testcase_07	AC	728 ms 6,528 KB
testcase_08	AC	3 ms 5,376 KB

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

コンパイルメッセージ

Unquoted string "possible" may clash with future reserved word at Main.pl line 1.
Main.pl syntax OK

ソースコード

raw source code

<>;map{$_=reverse;$i++while s/^\s*R(R*)G((R*G[RG]*)W|([RW]*)W)/$1.$3.$4=~y#W##dr/e;$i=!print"im"x!($i&&!$_),possible,$/}<>

0