Submission #3213539

Source Code Expand

import Control.Monad
import Data.List

main :: IO ()
main = do
    n <- readLn
    facts <- replicateM n $ map read . words <$> getLine
    print $ solve facts

solve :: [[Int]] -> Int
solve = sum . head . sortOn (negate . head)

Submission Info

Submission Time
Task B - Different Distribution
User Gash788
Language Haskell (GHC 7.10.3)
Score 200
Code Size 238 Byte
Status AC
Exec Time 913 ms
Memory 169340 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 23
Set Name Test Cases
Sample s1.txt, s2.txt, s3.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 20.txt, s1.txt, s2.txt, s3.txt
Case Name Status Exec Time Memory
01.txt AC 907 ms 164220 KB
02.txt AC 908 ms 164220 KB
03.txt AC 908 ms 164220 KB
04.txt AC 906 ms 164220 KB
05.txt AC 913 ms 169340 KB
06.txt AC 906 ms 164220 KB
07.txt AC 908 ms 164220 KB
08.txt AC 911 ms 164220 KB
09.txt AC 911 ms 169340 KB
10.txt AC 911 ms 169340 KB
11.txt AC 739 ms 129404 KB
12.txt AC 883 ms 146812 KB
13.txt AC 789 ms 153980 KB
14.txt AC 907 ms 165372 KB
15.txt AC 1 ms 508 KB
16.txt AC 1 ms 508 KB
17.txt AC 1 ms 508 KB
18.txt AC 1 ms 508 KB
19.txt AC 1 ms 508 KB
20.txt AC 1 ms 508 KB
s1.txt AC 1 ms 508 KB
s2.txt AC 2 ms 508 KB
s3.txt AC 1 ms 508 KB