結果

問題 No.208 王将
ユーザー tailstails
提出日時 2015-05-15 22:28:33
言語 Perl
(5.40.0)
結果
AC  
実行時間 4 ms / 1,000 ms
コード長 146 bytes
コンパイル時間 37 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-10-09 16:25:19
合計ジャッジ時間 894 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 23
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

($x,$y)=<>=~/\S+/g;
($a,$b)=<>=~/\S+/g;
$x=-$x,$a=-$a if $x<0;
$y=-$y,$b=-$b if $b<0;
$d=$x>$y?$x:$y;
$d++ if $x==$y && $a==$b && $x>$a;
print $d;
0