結果
問題 | No.476 正しくない平均 |
ユーザー |
|
提出日時 | 2017-01-28 06:16:01 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 51 bytes |
コンパイル時間 | 404 ms |
コンパイル使用メモリ | 5,504 KB |
実行使用メモリ | 5,504 KB |
最終ジャッジ日時 | 2024-12-23 20:25:33 |
合計ジャッジ時間 | 1,142 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 17 WA * 9 |
コンパイルメッセージ
\1 better written as $1 at Main.pl line 1. Main.pl syntax OK
ソースコード
print eval<>=~s/(\d)+\n/*\1==/r.<>=~s/ /+/gr?YES:NO