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

提出ソース

結果

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

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	338 ms 6,528 KB
testcase_01	AC	334 ms 6,528 KB
testcase_02	AC	334 ms 6,528 KB
testcase_03	AC	333 ms 6,656 KB
testcase_04	AC	325 ms 6,656 KB
testcase_05	AC	3 ms 5,248 KB
testcase_06	AC	3 ms 5,376 KB
testcase_07	AC	735 ms 6,528 KB
testcase_08	AC	4 ms 5,248 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([^G]*)W|R(R*)G(R*?G.*?)W)/$2.$3=~y#W##dr.$4.$5/e;$i=!print"im"x!($i&&!$_),possible,$/}<>

0