結果
問題 | No.466 ジオラマ |
ユーザー |
![]() |
提出日時 | 2016-12-16 01:34:35 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 12 ms / 2,000 ms |
コード長 | 246 bytes |
コンパイル時間 | 207 ms |
コンパイル使用メモリ | 6,820 KB |
実行使用メモリ | 6,824 KB |
最終ジャッジ日時 | 2024-12-23 15:04:40 |
合計ジャッジ時間 | 4,316 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 83 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
($a,$b,$c,$d)=glob<>; $x=2;$y=0;$p=1; sub a{$o.="@_\n";++$y} sub f{$p=pop;a($p,$x),$p=$x++for 2..pop} if($a==$c){ !--$a?$d=0:a 0,1 if $b==$c; f$b-$c,1; a$p,0; f$a,0; }else{ f$b,1; f$a-$c,0; a$p,$b-$c+1 if $c; } print$d<$y?-1:"$x $y\n$o"