結果
問題 | No.451 575 |
ユーザー |
![]() |
提出日時 | 2016-12-02 00:23:21 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 292 bytes |
コンパイル時間 | 287 ms |
コンパイル使用メモリ | 5,376 KB |
実行使用メモリ | 31,488 KB |
最終ジャッジ日時 | 2024-12-16 07:40:47 |
合計ジャッジ時間 | 6,332 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 WA * 1 |
other | AC * 19 WA * 10 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
($n,@b)=<>;@a=1;for(0..9){$m=1e19;$o=-1e19;for(0..$#b){$v=$a[$_+1]=($b[$_]-$a[$_])*(-1)**$_;if($_%4<2){$v=1e18+1-$v;}$m=$v if $m>$v;$o=$v if $o<$v;}if($m<1){$a[0]+=1-$m;}elsif($o>1e18){$a[0]-=$o-1e18;}else{print join$/,$n+1,@a;exit;}}print -1;