AtCoder Regular Contest 004

Submission #66616

Source codeソースコード

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

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

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