結果
問題 | 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"