Submission #5409188


Source Code Expand

import qualified Control.Monad as M
import qualified Data.Map as Map
import qualified Data.Set as S

main = do
    n <- readLn
    ps <- map read . words <$> getLine
    print $ solve n ps

solve :: Int -> [Int] -> Int
solve n ps = length . S.fromList $ sums where
    sums = [sum $ zipWith (*) ptn ps | ptn <- ptns]
    ptns = M.replicateM n [0, 1]

Submission Info

Submission Time
Task A - コンテスト
User ykarako
Language Haskell (GHC 7.10.3)
Score 0
Code Size 363 Byte
Status TLE
Exec Time 2161 ms
Memory 902396 KB

Judge Result

Set Name All
Score / Max Score 0 / 2
Status
AC × 3
TLE × 2
Set Name Test Cases
All 00, 01, 02, 90, 91
Case Name Status Exec Time Memory
00 AC 2 ms 1020 KB
01 TLE 2157 ms 835836 KB
02 TLE 2161 ms 902396 KB
90 AC 2 ms 508 KB
91 AC 2 ms 892 KB