Submission #1157584


Source Code Expand

{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}
{-# LANGUAGE BangPatterns      #-}
{-# LANGUAGE CPP               #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TupleSections     #-}

import           Control.Applicative
import           Control.Monad
import           Control.Monad.Primitive
import           Control.Monad.ST
import           Control.Monad.State.Strict
import           Data.Bool
import qualified Data.ByteString.Char8       as B
import qualified Data.ByteString.Unsafe      as B
import           Data.Char
import           Data.Function
import qualified Data.IntMap.Strict          as IM
import qualified Data.IntSet                 as IS
import           Data.List
import qualified Data.Map.Strict             as M
import           Data.Monoid
import           Data.Ord
import           Data.Primitive.MutVar
import qualified Data.Set                    as S
import           Data.Tuple
import qualified Data.Vector                 as V
import qualified Data.Vector.Generic         as G
import qualified Data.Vector.Generic.Mutable as GM
import qualified Data.Vector.Unboxed         as U
import qualified Data.Vector.Unboxed.Mutable as UM
import           Debug.Trace
import           Foreign                     hiding (void)
import           Unsafe.Coerce

main :: IO ()
main = do
    !n <- readLn :: IO Int
    xs <- U.unfoldrN n (B.readInt.B.dropWhile isSpace) <$> B.getLine
    print $ solve $ U.toList xs

solve :: [Int] -> Int
solve xs0 = go x [x] $ xs
  where
    (x:xs) = sort xs0
    go !acc !res (x:xs)
      | x <= acc * 2 = go (acc+x) (x:res) xs
      | otherwise = go (acc+x) [x] xs
    go _ res _ = length res

Submission Info

Submission Time
Task B - Colorful Creatures
User cojna
Language Haskell (GHC 7.10.3)
Score 400
Code Size 1696 Byte
Status AC
Exec Time 222 ms
Memory 17788 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
AC × 3
AC × 19
Set Name Test Cases
Sample sample1.txt, sample2.txt, sample3.txt
All sample1.txt, sample2.txt, sample3.txt, in1.txt, in10.txt, in11.txt, in12.txt, in13.txt, in2.txt, in3.txt, in4.txt, in5.txt, in6.txt, in7.txt, in8.txt, in9.txt, sample1.txt, sample2.txt, sample3.txt
Case Name Status Exec Time Memory
in1.txt AC 216 ms 17788 KB
in10.txt AC 69 ms 7420 KB
in11.txt AC 207 ms 16764 KB
in12.txt AC 50 ms 14716 KB
in13.txt AC 54 ms 14716 KB
in2.txt AC 207 ms 17788 KB
in3.txt AC 222 ms 17788 KB
in4.txt AC 211 ms 17788 KB
in5.txt AC 64 ms 7548 KB
in6.txt AC 213 ms 16764 KB
in7.txt AC 217 ms 17788 KB
in8.txt AC 207 ms 16764 KB
in9.txt AC 16 ms 2812 KB
sample1.txt AC 2 ms 508 KB
sample2.txt AC 2 ms 508 KB
sample3.txt AC 2 ms 508 KB