結果
問題 | No.277 根掘り葉掘り |
ユーザー | %20 |
提出日時 | 2018-07-30 06:49:03 |
言語 | Perl (5.38.0) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 161 bytes |
コンパイル時間 | 167 ms |
コンパイル使用メモリ | 5,332 KB |
最終ジャッジ日時 | 2023-09-28 21:57:29 |
合計ジャッジ時間 | 919 ms |
ジャッジサーバーID (参考情報) |
judge15 / judge12 |
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
Backticks found where operator expected at Main.pl line 2, near "@ $`,$'+!push@{$'+0},$`" (Missing operator before `,$'+!push@{$'+0},$`?) Useless use of push with no values at Main.pl line 2. syntax error at Main.pl line 2, near "@ $`,$'+!push@{$'+0},$`" Main.pl had compilation errors.
ソースコード
/ /&&push@ $`,$'+!push@{$'+0},$`for@N=<>;@q=(1,grep!($L[$_]=@$_-1&&@N),2..@N);push@q,grep{$L[$_]-=$-=$L[$_]-$L[$q]-1;$-}@$q while$q=shift@q;shift@L;$,=$/;print@L