結果

問題 No.13 囲みたい！
コンテスト
ユーザー tails
提出日時 2019-07-26 09:56:20
言語 Perl
(5.40.0)
結果
AC  
実行時間 185 ms / 5,000 ms
コード長 159 bytes
コンパイル時間 257 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 9,088 KB
最終ジャッジ日時 2024-07-02 06:22:52
合計ジャッジ時間 1,681 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 16
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "im" may clash with future reserved word at Main.pl line 1.
Unquoted string "possible" may clash with future reserved word at Main.pl line 1.
Name "main::i" used only once: possible typo at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff # 

sub r{$x-$p[$x]?r($x=$p[$x]):$x}sub f{$a[$_]==$a[$x=$_+"@_ 1"]&&($p[$u=r$x=$_]=r)==$u}$/=<>;@a=glob<>;print!grep(($_+1)%$/&&f||f($/),@i=@p=0..$#a)&&im,possible
0