Submission #23166

Source Code Expand

main = do
  n <- readLn
  interact $ show . f n . map (map read . words) . lines
  putStrLn ""

f n ps = maximum [dist (ps!!i) (ps!!j) | i <- [0 .. n-1], j <- [i+1 .. n-1]]

dist [a,b] [c,d] = sqrt $ (a-c)^2 + (b-d)^2

Submission Info

Submission Time
Task A - 2点間距離の最大値 ( The longest distance )
User notogawa
Language Haskell (GHC 7.4.1)
Score 100
Code Size 224 Byte
Status AC
Exec Time 70 ms
Memory 2312 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 26
Set Name Test Cases
All 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 AC 70 ms 1608 KB
00_sample_01.txt AC 29 ms 1460 KB
00_sample_02.txt AC 29 ms 1592 KB
00_sample_03.txt AC 29 ms 1584 KB
00_sample_04.txt AC 29 ms 1584 KB
00_sample_05.txt AC 28 ms 1584 KB
01_rnd_00.txt AC 33 ms 2312 KB
01_rnd_01.txt AC 34 ms 2228 KB
01_rnd_02.txt AC 34 ms 2224 KB
01_rnd_03.txt AC 37 ms 2304 KB
01_rnd_04.txt AC 32 ms 2100 KB
01_rnd_05.txt AC 34 ms 2232 KB
01_rnd_06.txt AC 33 ms 2224 KB
01_rnd_07.txt AC 33 ms 2228 KB
01_rnd_08.txt AC 33 ms 2228 KB
01_rnd_09.txt AC 33 ms 2228 KB
01_rnd_10.txt AC 33 ms 2228 KB
01_rnd_11.txt AC 36 ms 2148 KB
01_rnd_12.txt AC 37 ms 2312 KB
01_rnd_13.txt AC 34 ms 2212 KB
01_rnd_14.txt AC 33 ms 2220 KB
01_rnd_15.txt AC 35 ms 2228 KB
01_rnd_16.txt AC 34 ms 2232 KB
01_rnd_17.txt AC 34 ms 2220 KB
01_rnd_18.txt AC 34 ms 2228 KB
01_rnd_19.txt AC 33 ms 2232 KB