提出 #34418


ソースコード 拡げる

Copy
{-# LANGUAGE BangPatterns #-}

import Control.Monad
import Data.List

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

提出情報

提出日時
問題 C - 積み重ね
ユーザ seagull_kamome
言語 Haskell (GHC 7.4.1)
得点 100
コード長 353 Byte
結果 AC
実行時間 42 ms
メモリ 1756 KB

ジャッジ結果

セット名 All
得点 / 配点 100 / 100
結果
AC × 44
セット名 テストケース
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
ケース名 結果 実行時間 メモリ
00_min.txt AC 42 ms 1096 KB
00_sample_01.txt AC 25 ms 1144 KB
00_sample_02.txt AC 25 ms 1292 KB
00_sample_03.txt AC 25 ms 1160 KB
00_sample_04.txt AC 25 ms 1160 KB
00_sample_05.txt AC 23 ms 1272 KB
01_rnd_00.txt AC 25 ms 1296 KB
01_rnd_01.txt AC 24 ms 1296 KB
01_rnd_02.txt AC 25 ms 1524 KB
01_rnd_03.txt AC 27 ms 1424 KB
01_rnd_04.txt AC 32 ms 1496 KB
01_rnd_05.txt AC 26 ms 1524 KB
01_rnd_06.txt AC 37 ms 1264 KB
01_rnd_07.txt AC 26 ms 1652 KB
01_rnd_08.txt AC 27 ms 1648 KB
01_rnd_09.txt AC 26 ms 1684 KB
02_maxrnd_00.txt AC 29 ms 1648 KB
02_maxrnd_01.txt AC 29 ms 1652 KB
02_maxrnd_02.txt AC 28 ms 1648 KB
02_maxrnd_03.txt AC 27 ms 1676 KB
02_maxrnd_04.txt AC 25 ms 1652 KB
02_maxrnd_05.txt AC 26 ms 1664 KB
02_maxrnd_06.txt AC 27 ms 1652 KB
02_maxrnd_07.txt AC 28 ms 1756 KB
02_maxrnd_08.txt AC 26 ms 1648 KB
02_maxrnd_09.txt AC 27 ms 1652 KB
02_maxrnd_10.txt AC 28 ms 1656 KB
02_maxrnd_11.txt AC 27 ms 1656 KB
02_maxrnd_12.txt AC 28 ms 1648 KB
02_maxrnd_13.txt AC 29 ms 1656 KB
02_maxrnd_14.txt AC 28 ms 1648 KB
02_maxrnd_15.txt AC 27 ms 1648 KB
02_maxrnd_16.txt AC 28 ms 1656 KB
02_maxrnd_17.txt AC 28 ms 1684 KB
02_maxrnd_18.txt AC 28 ms 1652 KB
02_maxrnd_19.txt AC 29 ms 1644 KB
03_increase_00.txt AC 27 ms 1656 KB
03_increase_01.txt AC 29 ms 1632 KB
03_increase_02.txt AC 29 ms 1676 KB
04_decrease_00.txt AC 27 ms 1684 KB
04_decrease_01.txt AC 29 ms 1656 KB
04_decrease_02.txt AC 27 ms 1652 KB
05_same_00.txt AC 28 ms 1668 KB
05_same_01.txt AC 30 ms 1656 KB