Submission #4155

Source Code Expand

main = do
  getLine
  l <- getLine
  let cnt = map (\c -> length $ filter (==c) l) "1234"
  putStrLn $ show (maximum cnt) ++ " " ++ show (minimum cnt)

Submission Info

Submission Time
Task A - センター採点
User xenophobia
Language Haskell (GHC 7.4.1)
Score 100
Code Size 154 Byte
Status AC
Exec Time 21 ms
Memory 948 KB

Compile Error

Linking a.out ...

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 30
Set Name Test Cases
all 00_sample1.txt, 00_sample2.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, 02_all_1.txt, 02_all_2.txt, 02_all_3.txt, 02_all_4.txt, 03_mini_1.txt, 03_mini_2.txt, 03_mini_3.txt, 03_mini_4.txt
Case Name Status Exec Time Memory
00_sample1.txt AC 19 ms 128 KB
00_sample2.txt AC 21 ms 128 KB
01_rnd_00.txt AC 20 ms 128 KB
01_rnd_01.txt AC 20 ms 128 KB
01_rnd_02.txt AC 20 ms 936 KB
01_rnd_03.txt AC 20 ms 128 KB
01_rnd_04.txt AC 20 ms 128 KB
01_rnd_05.txt AC 20 ms 128 KB
01_rnd_06.txt AC 19 ms 128 KB
01_rnd_07.txt AC 20 ms 128 KB
01_rnd_08.txt AC 20 ms 128 KB
01_rnd_09.txt AC 20 ms 128 KB
01_rnd_10.txt AC 20 ms 948 KB
01_rnd_11.txt AC 20 ms 0 KB
01_rnd_12.txt AC 20 ms 948 KB
01_rnd_13.txt AC 20 ms 0 KB
01_rnd_14.txt AC 20 ms 128 KB
01_rnd_15.txt AC 19 ms 128 KB
01_rnd_16.txt AC 20 ms 128 KB
01_rnd_17.txt AC 20 ms 128 KB
01_rnd_18.txt AC 19 ms 128 KB
01_rnd_19.txt AC 20 ms 128 KB
02_all_1.txt AC 20 ms 128 KB
02_all_2.txt AC 20 ms 128 KB
02_all_3.txt AC 20 ms 128 KB
02_all_4.txt AC 20 ms 128 KB
03_mini_1.txt AC 20 ms 128 KB
03_mini_2.txt AC 18 ms 128 KB
03_mini_3.txt AC 20 ms 128 KB
03_mini_4.txt AC 20 ms 0 KB