Submission #1837532

Source Code Expand

main = do
  n <- (read :: String -> Int) <$> getLine
  putStrLn . show $ head . tribo $ n

tribo :: Int -> [Int]
tribo 1 = [0]
tribo 2 = [0, 0]
tribo 3 = [1, 0, 0]
tribo n =
  let t = tribo (n-1)
    in (((t !! 0) + (t !! 1) + (t !! 2)) `mod` 10007):t

Submission Info

Submission Time
Task B - トリボナッチ数列
User amanuko
Language Haskell (GHC 7.10.3)
Score 100
Code Size 263 Byte
Status AC
Exec Time 310 ms
Memory 132732 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 36
Set Name Test Cases
All sample_01.txt, sample_02.txt, sample_03.txt, test_1.txt, test_1000000.txt, test_1002.txt, test_104.txt, test_107843.txt, test_10980.txt, test_1212.txt, test_1238.txt, test_13194.txt, test_14.txt, test_16.txt, test_2.txt, test_210782.txt, test_21694.txt, test_243.txt, test_24916.txt, test_278.txt, test_3.txt, test_31.txt, test_32.txt, test_42.txt, test_5555.txt, test_567914.txt, test_61868.txt, test_765671.txt, test_8195.txt, test_8353.txt, test_9.txt, test_9625.txt, test_97.txt, test_998.txt, test_999998.txt, test_999999.txt
Case Name Status Exec Time Memory
sample_01.txt AC 2 ms 380 KB
sample_02.txt AC 1 ms 380 KB
sample_03.txt AC 28 ms 10748 KB
test_1.txt AC 2 ms 508 KB
test_1000000.txt AC 310 ms 132732 KB
test_1002.txt AC 2 ms 508 KB
test_104.txt AC 2 ms 508 KB
test_107843.txt AC 30 ms 11644 KB
test_10980.txt AC 3 ms 1532 KB
test_1212.txt AC 2 ms 636 KB
test_1238.txt AC 2 ms 636 KB
test_13194.txt AC 4 ms 2172 KB
test_14.txt AC 2 ms 380 KB
test_16.txt AC 2 ms 508 KB
test_2.txt AC 2 ms 380 KB
test_210782.txt AC 58 ms 20860 KB
test_21694.txt AC 6 ms 3196 KB
test_243.txt AC 2 ms 508 KB
test_24916.txt AC 7 ms 3324 KB
test_278.txt AC 2 ms 508 KB
test_3.txt AC 2 ms 380 KB
test_31.txt AC 2 ms 508 KB
test_32.txt AC 2 ms 508 KB
test_42.txt AC 2 ms 508 KB
test_5555.txt AC 2 ms 1148 KB
test_567914.txt AC 174 ms 70140 KB
test_61868.txt AC 16 ms 6140 KB
test_765671.txt AC 217 ms 71036 KB
test_8195.txt AC 3 ms 1532 KB
test_8353.txt AC 3 ms 1532 KB
test_9.txt AC 1 ms 380 KB
test_9625.txt AC 3 ms 1532 KB
test_97.txt AC 1 ms 508 KB
test_998.txt AC 2 ms 508 KB
test_999998.txt AC 307 ms 132732 KB
test_999999.txt AC 308 ms 132732 KB