結果

問題 No.451 575
ユーザー %20
提出日時 2016-12-02 16:03:29
言語 Perl
(5.40.0)
結果
TLE  
実行時間 -
コード長 380 bytes
コンパイル時間 606 ms
コンパイル使用メモリ 12,800 KB
実行使用メモリ 43,008 KB
最終ジャッジ日時 2024-12-16 10:25:10
合計ジャッジ時間 50,664 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 11 WA * 4 TLE * 14
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::j" used only once: possible typo at Main.pl line 21.
Main.pl syntax OK

ソースコード

diff # 

use bigint;
$ym=1e18;<>;

++$i,
$a[$i]=$i%2?$_-$a[$i-1]
           :$a[$i-1]-$_,
$i-1&2?($xm-=$-=$xm-$a[$i],$xM+=$-=$a[$i]-$xM)
      :($ym-=$-=$ym-$a[$i],$yM+=$-=$a[$i]-$yM)
for<>;

$t=1-$xm;
$xM+=$t;$yM-=$t;
$xm+=$t;$ym-=$t;

$t+=$-=$yM-1e18;
$xM+=$-;$yM-=$-;
$xm+=$-;$ym-=$-;

if(1<=$ym&&$xM<=1e18){
	print@a+0,$/;
	printf"%d\n",++$j&2?$_-$t:$_+$t for@a;
}else{
	print-1,$/;
}
0