Submission #97309

---

Source Code Expand

{-# OPTIONS_GHC -O2 #-}
{-# LANGUAGE BangPatterns #-}

import Control.Applicative
import qualified Data.ByteString.Char8 as B
import qualified Data.IntSet as IS

readInt :: B.ByteString -> Int
readInt bs = case B.readInt bs of Just (n,_) -> n

main :: IO ()
main = do
  n <- readLn
  xs <- map readInt.B.words <$> B.getLine
  print $ solve n xs

solve :: Int -> [Int] -> Int
solve n xs = go (IS.singleton 0) xs
   where
     go !s (x:xs) = go (IS.union s $ IS.map (x+) s) xs
     go !s _ = IS.size s

Submission Info

Judge Result