Submission #25982

---

Source Code Expand

for (<>) {
	next if!/ /;
	my($x,$y)=split/ /;
	push@X,$x;
	push@Y,$y;
}

for ($i=0; $i<$#X; $i++) {
	for ($j=$i+1; $j<=$#Y; $j++) {
		$a = abs($X[$i]-$X[$j]);
		$b = abs($Y[$i]-$Y[$j]);
		
		push@L,sqrt($a**2+$b**2);
	}
}

@L=sort{$b<=>$a}@L;
print $L[0],$/;

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result