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 |
|
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 |