Submission #34088


Source Code Expand

Copy
{-# LANGUAGE BangPatterns #-}

import Control.Monad
import Data.List

main :: IO ()
main = do
  n <- readLn :: IO Int
  xs <- replicateM n readLn :: IO [Int]
  print $ go [] xs
  where
    go ys [] = length ys
    go ys !(x:xs) =
      let ys'' | ys' == [] = ys''' ++ [x]
               | otherwise = filter (< x) ys ++ [x] ++ tail (sort ys')
          (ys', ys''') = partition (>= x) ys
       in go ys'' xs

Submission Info

Submission Time
Task C - 積み重ね
User seagull_kamome
Language Haskell (GHC 7.4.1)
Score 100
Code Size 426 Byte
Status AC
Exec Time 56 ms
Memory 1784 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 44
Set Name Test Cases
All 00_min.txt, 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, 00_sample_04.txt, 00_sample_05.txt, 01_rnd_00.txt, 01_rnd_01.txt, 01_rnd_02.txt, 01_rnd_03.txt, 01_rnd_04.txt, 01_rnd_05.txt, 01_rnd_06.txt, 01_rnd_07.txt, 01_rnd_08.txt, 01_rnd_09.txt, 02_maxrnd_00.txt, 02_maxrnd_01.txt, 02_maxrnd_02.txt, 02_maxrnd_03.txt, 02_maxrnd_04.txt, 02_maxrnd_05.txt, 02_maxrnd_06.txt, 02_maxrnd_07.txt, 02_maxrnd_08.txt, 02_maxrnd_09.txt, 02_maxrnd_10.txt, 02_maxrnd_11.txt, 02_maxrnd_12.txt, 02_maxrnd_13.txt, 02_maxrnd_14.txt, 02_maxrnd_15.txt, 02_maxrnd_16.txt, 02_maxrnd_17.txt, 02_maxrnd_18.txt, 02_maxrnd_19.txt, 03_increase_00.txt, 03_increase_01.txt, 03_increase_02.txt, 04_decrease_00.txt, 04_decrease_01.txt, 04_decrease_02.txt, 05_same_00.txt, 05_same_01.txt
Case Name Status Exec Time Memory
00_min.txt AC 56 ms 1148 KB
00_sample_01.txt AC 24 ms 1160 KB
00_sample_02.txt AC 26 ms 1280 KB
00_sample_03.txt AC 29 ms 1160 KB
00_sample_04.txt AC 30 ms 1204 KB
00_sample_05.txt AC 27 ms 1276 KB
01_rnd_00.txt AC 26 ms 1284 KB
01_rnd_01.txt AC 27 ms 1280 KB
01_rnd_02.txt AC 25 ms 1484 KB
01_rnd_03.txt AC 28 ms 1272 KB
01_rnd_04.txt AC 28 ms 1544 KB
01_rnd_05.txt AC 54 ms 1552 KB
01_rnd_06.txt AC 28 ms 1272 KB
01_rnd_07.txt AC 31 ms 1664 KB
01_rnd_08.txt AC 27 ms 1664 KB
01_rnd_09.txt AC 30 ms 1676 KB
02_maxrnd_00.txt AC 26 ms 1660 KB
02_maxrnd_01.txt AC 27 ms 1672 KB
02_maxrnd_02.txt AC 28 ms 1660 KB
02_maxrnd_03.txt AC 36 ms 1784 KB
02_maxrnd_04.txt AC 26 ms 1672 KB
02_maxrnd_05.txt AC 28 ms 1664 KB
02_maxrnd_06.txt AC 29 ms 1676 KB
02_maxrnd_07.txt AC 28 ms 1664 KB
02_maxrnd_08.txt AC 28 ms 1668 KB
02_maxrnd_09.txt AC 31 ms 1652 KB
02_maxrnd_10.txt AC 31 ms 1616 KB
02_maxrnd_11.txt AC 31 ms 1668 KB
02_maxrnd_12.txt AC 31 ms 1672 KB
02_maxrnd_13.txt AC 29 ms 1664 KB
02_maxrnd_14.txt AC 31 ms 1676 KB
02_maxrnd_15.txt AC 27 ms 1652 KB
02_maxrnd_16.txt AC 31 ms 1732 KB
02_maxrnd_17.txt AC 30 ms 1704 KB
02_maxrnd_18.txt AC 29 ms 1656 KB
02_maxrnd_19.txt AC 30 ms 1628 KB
03_increase_00.txt AC 29 ms 1672 KB
03_increase_01.txt AC 26 ms 1612 KB
03_increase_02.txt AC 28 ms 1644 KB
04_decrease_00.txt AC 27 ms 1656 KB
04_decrease_01.txt AC 31 ms 1676 KB
04_decrease_02.txt AC 28 ms 1644 KB
05_same_00.txt AC 26 ms 1672 KB
05_same_01.txt AC 28 ms 1656 KB