Typical DP Contest

Submission #5410191

Source codeソースコード

import qualified Data.IntSet as S

main = do
    n <- readLn :: IO Int
    ps <- map read . words <$> getLine
    print $ S.size $ g ps

g [] = S.singleton 0
g (p:ps) = S.union s (S.map (+p) s) where
    s = g ps

Submission

Task問題 A - コンテスト
User nameユーザ名 yk
Created time投稿日時
Language言語 Haskell (GHC 7.10.3)
Status状態 AC
Score得点 2
Source lengthソースコード長 221 Byte
File nameファイル名
Exec time実行時間 15 ms
Memory usageメモリ使用量 1916 KB

Test case

Set

Set name Score得点 / Max score Cases
All 2 / 2 00,01,02,90,91

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
00 AC 2 ms 636 KB
01 AC 4 ms 1020 KB
02 AC 15 ms 1916 KB
90 AC 1 ms 508 KB
91 AC 2 ms 508 KB