結果

問題 No.602 隠されていたゲーム2
コンテスト
ユーザー tails
提出日時 2017-12-02 00:30:00
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 269 bytes
コンパイル時間 47 ms
コンパイル使用メモリ 5,888 KB
実行使用メモリ 35,660 KB
最終ジャッジ日時 2024-11-28 01:45:48
合計ジャッジ時間 2,908 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 15 WA * 6
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::e2" used only once: possible typo at Main.pl line 19.
Main.pl syntax OK

ソースコード

diff # 

<>;
@d=sort{$b-$a}glob<>;
($x,$y)=glob<>;

if($x==0&&$y==0){
	print 0;
	exit;
}

$z=abs($x)+abs($y);
if(grep$z==$_,@d){
	print 1;
	exit;
}

($e0)=grep{$_%2==0}@d;
($e1)=grep{$_%2==1}@d;

if( $z%2 ? $z<=$e1+$e2 : $z<=$e0*2 || $z<=$e1*2 ) {
	print 2;
	exit;
}

print -1;
0