AtCoder Regular Contest 004

Submission #25982

Source codeソースコード

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

Task問題 A - 2点間距離の最大値 ( The longest distance )
User nameユーザ名 Hemus
Created time投稿日時
Language言語 Perl (5.14.2)
Status状態 AC
Score得点 100
Source lengthソースコード長 277 Byte
File nameファイル名
Exec time実行時間 57 ms
Memory usageメモリ使用量 2804 KB

Compiler messageコンパイルメッセージ

./Main.pl syntax OK

Test case

Set

Set name Score得点 / Max score Cases
All 100 / 100 00_max.txt,00_sample_01.txt,00_sample_02.txt,00_sample_03.txt,00_sample_04.txt,00_sample_05.txt,01_rnd_00.txt,01_rnd_01.txt,01_rnd_02.txt,01_rnd_03.txt,01_rnd_04.txt,01_rnd_05.txt,01_rnd_06.txt,01_rnd_07.txt,01_rnd_08.txt,01_rnd_09.txt,01_rnd_10.txt,01_rnd_11.txt,01_rnd_12.txt,01_rnd_13.txt,01_rnd_14.txt,01_rnd_15.txt,01_rnd_16.txt,01_rnd_17.txt,01_rnd_18.txt,01_rnd_19.txt

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
00_max.txt AC 45 ms 2448 KB
00_sample_01.txt AC 53 ms 2448 KB
00_sample_02.txt AC 43 ms 2448 KB
00_sample_03.txt AC 43 ms 2448 KB
00_sample_04.txt AC 47 ms 2444 KB
00_sample_05.txt AC 44 ms 2452 KB
01_rnd_00.txt AC 57 ms 2708 KB
01_rnd_01.txt AC 52 ms 2700 KB
01_rnd_02.txt AC 52 ms 2704 KB
01_rnd_03.txt AC 51 ms 2704 KB
01_rnd_04.txt AC 51 ms 2708 KB
01_rnd_05.txt AC 51 ms 2708 KB
01_rnd_06.txt AC 51 ms 2708 KB
01_rnd_07.txt AC 51 ms 2684 KB
01_rnd_08.txt AC 54 ms 2708 KB
01_rnd_09.txt AC 51 ms 2704 KB
01_rnd_10.txt AC 52 ms 2704 KB
01_rnd_11.txt AC 52 ms 2704 KB
01_rnd_12.txt AC 55 ms 2700 KB
01_rnd_13.txt AC 52 ms 2696 KB
01_rnd_14.txt AC 52 ms 2704 KB
01_rnd_15.txt AC 52 ms 2708 KB
01_rnd_16.txt AC 51 ms 2704 KB
01_rnd_17.txt AC 52 ms 2708 KB
01_rnd_18.txt AC 52 ms 2804 KB
01_rnd_19.txt AC 53 ms 2700 KB