結果

問題 No.470 Inverse S+T Problem
ユーザー tailstails
提出日時 2016-12-20 02:57:17
言語 Perl
(5.40.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 323 bytes
コンパイル時間 367 ms
コンパイル使用メモリ 6,820 KB
最終ジャッジ日時 2024-11-15 04:44:28
合計ジャッジ時間 776 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge4
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Experimental push on scalar is now forbidden at Main.pl line 2, near "$-for"
Main.pl had compilation errors.

ソースコード

diff # 

sub e{exit!print"Impossible"}sub f{my$i=pop;$d[$i]||=''x map{$u[$i]=~$_;$d[$i]="$& $'
";g($&,$')&&return 1}'.','..'}sub g{my($a,$b)=@_;!$v{$a}&!$v{$b}&&($v{$a}=$v{$b}=1,map{f($_)||return$v{$a}=$v{$b}=0for@{$h{$_}}}$a,$b)}e if<>>52;map{chop;/\B./;push$h{$_}//=[],$-for$`,$&.$',$`.$&,$';++$-}@u=<>;f($_)||e for 0..$#u;print@d
0