結果

問題 No.1944 ∞
ユーザー tails
提出日時 2022-05-20 21:38:36
言語 Perl
(5.40.0)
結果
AC  
実行時間 346 ms / 2,000 ms
コード長 117 bytes
コンパイル時間 448 ms
コンパイル使用メモリ 7,972 KB
実行使用メモリ 65,664 KB
最終ジャッジ日時 2025-06-20 00:27:13
合計ジャッジ時間 3,445 ms
ジャッジサーバーID
(参考情報)
judge4 / judge5
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 37
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #

($n,$x,$y)=glob<>;
$r+=$_*2for@r=sort{$a-$b}glob<>;
$r-=$r[0];
$d=$r*$r-$x*$x-$y*$y;
print+($n==1?$d!=0:$d<0)?No:Yes
0