結果
問題 | No.437 cwwゲーム |
ユーザー | tails |
提出日時 | 2016-10-30 00:09:04 |
言語 | Perl (5.38.0) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 114 bytes |
コンパイル時間 | 302 ms |
コンパイル使用メモリ | 5,368 KB |
最終ジャッジ日時 | 2023-08-02 13:02:22 |
合計ジャッジ時間 | 696 ms |
ジャッジサーバーID (参考情報) |
judge13 / judge14 |
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
Reversed /= operator at Main.pl line 1. Array found where operator expected at Main.pl line 1, near "/ /for@_" (Missing operator before @_?) Unquoted string "f" may clash with future reserved word at Main.pl line 1. Unknown regexp modifier "/f" at Main.pl line 1, at end of line Unknown regexp modifier "/r" at Main.pl line 1, at end of line syntax error at Main.pl line 1, near "/ /for@_" Main.pl had compilation errors.
ソースコード
sub f{pop=~/([^0])(.*)(?!\1)(.)(.*)\3(?{push@_,"$1$3$3 $2$4$'"})^/;my@s=0;$s[$`-$s+f("$'")]=/ /for@_;$#s}print f<>