Submission #25985


Source Code Expand

Copy
$%=<>-1;
map{/ /;push@X,$`;push@Y,$'}<>;
//,map{$m=($s=sqrt(($X[$']-$X[$_])**2+($Y[$']-$Y[$_])**2))>$m?$s:$m}@=for@==0..$%;
print$m,$/

Submission Info

Submission Time
Task A - 2点間距離の最大値 ( The longest distance )
User Hemus
Language Perl (5.14.2)
Score 100
Code Size 137 Byte
Status
Exec Time 62 ms
Memory 2560 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Score / Max Score Test 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
Case Name Status Exec Time Memory
00_max.txt 44 ms 2448 KB
00_sample_01.txt 44 ms 2448 KB
00_sample_02.txt 44 ms 2452 KB
00_sample_03.txt 43 ms 2452 KB
00_sample_04.txt 44 ms 2448 KB
00_sample_05.txt 45 ms 2444 KB
01_rnd_00.txt 56 ms 2440 KB
01_rnd_01.txt 56 ms 2452 KB
01_rnd_02.txt 56 ms 2456 KB
01_rnd_03.txt 57 ms 2452 KB
01_rnd_04.txt 55 ms 2480 KB
01_rnd_05.txt 55 ms 2456 KB
01_rnd_06.txt 62 ms 2448 KB
01_rnd_07.txt 57 ms 2448 KB
01_rnd_08.txt 58 ms 2448 KB
01_rnd_09.txt 57 ms 2440 KB
01_rnd_10.txt 62 ms 2448 KB
01_rnd_11.txt 57 ms 2452 KB
01_rnd_12.txt 57 ms 2448 KB
01_rnd_13.txt 56 ms 2560 KB
01_rnd_14.txt 55 ms 2476 KB
01_rnd_15.txt 61 ms 2524 KB
01_rnd_16.txt 55 ms 2444 KB
01_rnd_17.txt 60 ms 2444 KB
01_rnd_18.txt 57 ms 2452 KB
01_rnd_19.txt 57 ms 2452 KB