Submission #34662


Source Code Expand

Copy
import Control.Arrow
import Data.List
import Data.Maybe

main :: IO ()
main = interact $ lines >>> tail >>> map read >>> foldl add [] >>> length >>> show >>> (++"\n")

add :: [Int] -> Int -> [Int]
add (a:xs) x
  | a >= x = x:xs
  | otherwise = a:add xs x
add [] x = [x]

Submission Info

Submission Time
Task C - 積み重ね
User phi16
Language Haskell (GHC 7.4.1)
Score 100
Code Size 280 Byte
Status AC
Exec Time 26 ms
Memory 1440 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 23 ms 896 KB
00_sample_01.txt AC 23 ms 988 KB
00_sample_02.txt AC 22 ms 1016 KB
00_sample_03.txt AC 26 ms 1048 KB
00_sample_04.txt AC 23 ms 1020 KB
00_sample_05.txt AC 23 ms 1052 KB
01_rnd_00.txt AC 23 ms 1144 KB
01_rnd_01.txt AC 22 ms 1024 KB
01_rnd_02.txt AC 23 ms 1156 KB
01_rnd_03.txt AC 21 ms 1168 KB
01_rnd_04.txt AC 22 ms 1296 KB
01_rnd_05.txt AC 22 ms 1300 KB
01_rnd_06.txt AC 21 ms 1040 KB
01_rnd_07.txt AC 22 ms 1424 KB
01_rnd_08.txt AC 23 ms 1304 KB
01_rnd_09.txt AC 24 ms 1404 KB
02_maxrnd_00.txt AC 23 ms 1408 KB
02_maxrnd_01.txt AC 23 ms 1440 KB
02_maxrnd_02.txt AC 24 ms 1408 KB
02_maxrnd_03.txt AC 23 ms 1396 KB
02_maxrnd_04.txt AC 24 ms 1424 KB
02_maxrnd_05.txt AC 23 ms 1396 KB
02_maxrnd_06.txt AC 23 ms 1408 KB
02_maxrnd_07.txt AC 23 ms 1424 KB
02_maxrnd_08.txt AC 24 ms 1408 KB
02_maxrnd_09.txt AC 24 ms 1408 KB
02_maxrnd_10.txt AC 23 ms 1392 KB
02_maxrnd_11.txt AC 24 ms 1400 KB
02_maxrnd_12.txt AC 23 ms 1412 KB
02_maxrnd_13.txt AC 23 ms 1404 KB
02_maxrnd_14.txt AC 23 ms 1404 KB
02_maxrnd_15.txt AC 24 ms 1408 KB
02_maxrnd_16.txt AC 22 ms 1424 KB
02_maxrnd_17.txt AC 23 ms 1428 KB
02_maxrnd_18.txt AC 24 ms 1400 KB
02_maxrnd_19.txt AC 23 ms 1408 KB
03_increase_00.txt AC 23 ms 1428 KB
03_increase_01.txt AC 24 ms 1432 KB
03_increase_02.txt AC 24 ms 1408 KB
04_decrease_00.txt AC 24 ms 1412 KB
04_decrease_01.txt AC 25 ms 1400 KB
04_decrease_02.txt AC 23 ms 1428 KB
05_same_00.txt AC 23 ms 1428 KB
05_same_01.txt AC 23 ms 1400 KB