結果

問題 No.274 The Wall
ユーザー tails
提出日時 2020-09-15 19:20:28
言語 Perl
(5.40.0)
結果
AC  
実行時間 829 ms / 2,000 ms
コード長 67 bytes
コンパイル時間 135 ms
コンパイル使用メモリ 7,580 KB
実行使用メモリ 164,344 KB
最終ジャッジ日時 2025-03-17 19:06:59
合計ジャッジ時間 2,741 ms
ジャッジサーバーID
(参考情報)
judge4 / judge2
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 4
other AC * 23
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #

$#a=$'-<>=~$";print grep($a[$_]+++$a[~$_]>1,map$`..$'*//,<>)?NO:YES
0