結果

問題 No.402 最も海から遠い場所
コンテスト
ユーザー tails
提出日時 2016-07-23 00:17:51
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 77 bytes
コンパイル時間 320 ms
コンパイル使用メモリ 7,072 KB
実行使用メモリ 14,792 KB
最終ジャッジ日時 2024-11-06 14:03:17
合計ジャッジ時間 1,749 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample WA * 3
other WA * 19
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

# test
($h,$w,$/)=glob<>;$_=<>;
$h--;
/^([#.]{$w}\n){$h}[#.]{$w}\n*$/ or die;
0