Submission #66616


Source Code Expand

Copy
main = interact (format . solve . tail . lines) >> putStrLn ""
solve xs = s $ map ((\(a:b:_) -> (a,b)) . map read . words) xs
s = sqrt . maximum . f
f xss@ ((a,b):xs) = f xs ++ [(a-c)^2+(b-d)^2 | (c,d) <- xs]
f _ = []
format = show

Submission Info

Submission Time
Task A - 2点間距離の最大値 ( The longest distance )
User hoshi524
Language Haskell (GHC 7.4.1)
Score 100
Code Size 238 Byte
Status
Exec Time 41 ms
Memory 2268 KB

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 41 ms 1500 KB
00_sample_01.txt 28 ms 1516 KB
00_sample_02.txt 30 ms 1644 KB
00_sample_03.txt 29 ms 1516 KB
00_sample_04.txt 27 ms 1548 KB
00_sample_05.txt 28 ms 1520 KB
01_rnd_00.txt 34 ms 2160 KB
01_rnd_01.txt 35 ms 2160 KB
01_rnd_02.txt 36 ms 2152 KB
01_rnd_03.txt 35 ms 2156 KB
01_rnd_04.txt 35 ms 2156 KB
01_rnd_05.txt 32 ms 2156 KB
01_rnd_06.txt 36 ms 2136 KB
01_rnd_07.txt 35 ms 2152 KB
01_rnd_08.txt 36 ms 2164 KB
01_rnd_09.txt 36 ms 2268 KB
01_rnd_10.txt 33 ms 2156 KB
01_rnd_11.txt 35 ms 2160 KB
01_rnd_12.txt 35 ms 2160 KB
01_rnd_13.txt 35 ms 2152 KB
01_rnd_14.txt 35 ms 2160 KB
01_rnd_15.txt 36 ms 2156 KB
01_rnd_16.txt 36 ms 2160 KB
01_rnd_17.txt 33 ms 2168 KB
01_rnd_18.txt 32 ms 2160 KB
01_rnd_19.txt 35 ms 2156 KB