Submission #227405

Source Code Expand

main :: IO ()
main = do
  n <- getInt
  putStrLn $ show $ solve n

solve 1 = 0
solve 2 = 0
solve n = cmp (n-3) 1 0 0
  where 
    cmp :: Int -> Int -> Int -> Int -> Int
    cmp 0 a _ _ = a
    cmp n a b c = cmp (n-1) ((a+b+c) `mod` 10007) a b

getInt :: IO Int
getInt = readLn

Submission Info

Submission Time
Task B - トリボナッチ数列
User hamadu
Language Haskell (GHC 7.4.1)
Score 100
Code Size 292 Byte
Status AC
Exec Time 58 ms
Memory 1692 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 33
Set Name Test Cases
All 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 28 ms 1112 KB
sample_02.txt AC 28 ms 1112 KB
sample_03.txt AC 31 ms 1620 KB
test_1.txt AC 26 ms 1172 KB
test_1000000.txt AC 57 ms 1624 KB
test_1002.txt AC 26 ms 1116 KB
test_104.txt AC 26 ms 1176 KB
test_107843.txt AC 31 ms 1628 KB
test_10980.txt AC 27 ms 1372 KB
test_1212.txt AC 26 ms 1184 KB
test_1238.txt AC 26 ms 1180 KB
test_13194.txt AC 27 ms 1368 KB
test_14.txt AC 27 ms 1112 KB
test_16.txt AC 26 ms 1176 KB
test_2.txt AC 26 ms 1112 KB
test_210782.txt AC 34 ms 1692 KB
test_21694.txt AC 27 ms 1496 KB
test_243.txt AC 27 ms 1112 KB
test_24916.txt AC 30 ms 1564 KB
test_278.txt AC 28 ms 1112 KB
test_3.txt AC 27 ms 1112 KB
test_31.txt AC 28 ms 1116 KB
test_32.txt AC 27 ms 1108 KB
test_42.txt AC 26 ms 1184 KB
test_5555.txt AC 26 ms 1240 KB
test_567914.txt AC 44 ms 1624 KB
test_61868.txt AC 29 ms 1620 KB
test_765671.txt AC 50 ms 1624 KB
test_8195.txt AC 28 ms 1368 KB
test_8353.txt AC 27 ms 1240 KB
test_9.txt AC 26 ms 1116 KB
test_9625.txt AC 27 ms 1240 KB
test_97.txt AC 26 ms 1112 KB
test_998.txt AC 26 ms 1156 KB
test_999998.txt AC 58 ms 1628 KB
test_999999.txt AC 58 ms 1628 KB