Submission #1482247

Source Code Expand

import qualified Data.IntMap as M

main = readLn >>= mapM_ print . enp

enp n = dp n (M.singleton 0 []) [1..]

dp n m (p:ps)
  | M.member n m1 = m1 M.! n
  | otherwise = dp n m1 ps
  where
    m1 = M.union m $ M.filterWithKey (\k _ -> k<=n) $ M.mapKeysMonotonic (+p) $ M.map (p:) m

Submission Info

Submission Time
Task B - Exactly N points
User aimy
Language Haskell (GHC 7.10.3)
Score 200
Code Size 292 Byte
Status TLE
Exec Time 2106 ms
Memory 24956 KB

Judge Result

Set Name sample dataset1 dataset2
Score / Max Score 0 / 0 200 / 200 0 / 100
Status
AC × 3
AC × 13
AC × 16
TLE × 8
Set Name Test Cases
sample sample-01.txt, sample-02.txt, sample-03.txt
dataset1 sample-01.txt, sample-02.txt, sample-03.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt
dataset2 sample-01.txt, sample-02.txt, sample-03.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt, 02-01.txt, 02-02.txt, 02-03.txt, 02-04.txt, 02-05.txt, 02-06.txt, 02-07.txt, 02-08.txt, sample-01.txt, sample-02.txt, sample-03.txt
Case Name Status Exec Time Memory
01-01.txt AC 1 ms 508 KB
01-02.txt AC 1 ms 508 KB
01-03.txt AC 1 ms 508 KB
01-04.txt AC 2 ms 508 KB
01-05.txt AC 2 ms 764 KB
01-06.txt AC 3 ms 1148 KB
01-07.txt AC 4 ms 1148 KB
01-08.txt AC 4 ms 1276 KB
01-09.txt AC 4 ms 1148 KB
01-10.txt AC 4 ms 1148 KB
02-01.txt TLE 2106 ms 24892 KB
02-02.txt TLE 2104 ms 24892 KB
02-03.txt TLE 2106 ms 24956 KB
02-04.txt TLE 2106 ms 24892 KB
02-05.txt TLE 2106 ms 24956 KB
02-06.txt TLE 2106 ms 24892 KB
02-07.txt TLE 2106 ms 24892 KB
02-08.txt TLE 2106 ms 24892 KB
sample-01.txt AC 2 ms 380 KB
sample-02.txt AC 1 ms 508 KB
sample-03.txt AC 2 ms 508 KB