Submission #649810


Source Code Expand

Copy
<>;for$i(@_=map[split],<>){$t=(@$i[0]-@$_[0])**2+(@$i[1]-@$_[1])**2,$;=$t>$;?$t:$;for@_}print sqrt$;,$/

Submission Info

Submission Time
Task A - 2点間距離の最大値 ( The longest distance )
User x20
Language Perl (5.14.2)
Score 100
Code Size 103 Byte
Status
Exec Time 65 ms
Memory 1308 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 31 ms 1260 KB
00_sample_01.txt 32 ms 1308 KB
00_sample_02.txt 30 ms 1252 KB
00_sample_03.txt 31 ms 1260 KB
00_sample_04.txt 29 ms 1252 KB
00_sample_05.txt 38 ms 1120 KB
01_rnd_00.txt 42 ms 1148 KB
01_rnd_01.txt 65 ms 1252 KB
01_rnd_02.txt 38 ms 1168 KB
01_rnd_03.txt 37 ms 1256 KB
01_rnd_04.txt 39 ms 1256 KB
01_rnd_05.txt 40 ms 1256 KB
01_rnd_06.txt 39 ms 1108 KB
01_rnd_07.txt 39 ms 1180 KB
01_rnd_08.txt 37 ms 1248 KB
01_rnd_09.txt 38 ms 1264 KB
01_rnd_10.txt 36 ms 1256 KB
01_rnd_11.txt 38 ms 1244 KB
01_rnd_12.txt 36 ms 1260 KB
01_rnd_13.txt 35 ms 1180 KB
01_rnd_14.txt 38 ms 1264 KB
01_rnd_15.txt 38 ms 1244 KB
01_rnd_16.txt 39 ms 1260 KB
01_rnd_17.txt 38 ms 1264 KB
01_rnd_18.txt 36 ms 1260 KB
01_rnd_19.txt 38 ms 1116 KB