Submission #180159

Source Code Expand

import Control.Applicative

main = do
  _ <- getLine
  fs <- map read . words <$> getLine
  putStrLn . show . sum $ map (\f -> f - (head $ filter (<= f) [9, 7, 3, 1, 0])) fs

Submission Info

Submission Time
Task B - 花占い
User iwashisnake
Language Haskell (GHC 7.4.1)
Score 100
Code Size 178 Byte
Status AC
Exec Time 347 ms
Memory 1560 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 18
Set Name Test Cases
All test_1.txt, test_112358.txt, test_1379137913.txt, test_1414213562.txt, test_1732151817.txt, test_2.txt, test_2236167977.txt, test_2645751311.txt, test_3.txt, test_3141592653.txt, test_4.txt, test_5.txt, test_6.txt, test_6666666666.txt, test_7.txt, test_73.txt, test_8.txt, test_9.txt
Case Name Status Exec Time Memory
sample_01.txt AC 347 ms 1432 KB
sample_02.txt AC 30 ms 1432 KB
test_1.txt AC 54 ms 1428 KB
test_112358.txt AC 73 ms 1440 KB
test_1379137913.txt AC 28 ms 1440 KB
test_1414213562.txt AC 28 ms 1436 KB
test_1732151817.txt AC 26 ms 1428 KB
test_2.txt AC 28 ms 1308 KB
test_2236167977.txt AC 28 ms 1432 KB
test_2645751311.txt AC 29 ms 1480 KB
test_3.txt AC 67 ms 1436 KB
test_3141592653.txt AC 34 ms 1560 KB
test_4.txt AC 29 ms 1304 KB
test_5.txt AC 28 ms 1312 KB
test_6.txt AC 29 ms 1440 KB
test_6666666666.txt AC 28 ms 1440 KB
test_7.txt AC 28 ms 1312 KB
test_73.txt AC 29 ms 1412 KB
test_8.txt AC 28 ms 1308 KB
test_9.txt AC 31 ms 1304 KB