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