Submission #157002


Source Code Expand

{-# LANGUAGE BangPatterns #-}

import Control.Applicative
import Control.Monad
import Control.Arrow
import Data.List
import Data.Maybe
import Data.Char
import Text.Printf


mp [ a, b ] = ( a, b )

m = 10007;

main = readLn >>= ( trib 0 0 1 >>> print )

trib !a !b !c !n
	| n == 1 = a
	| otherwise = trib b c ( ( a + b + c ) `mod` m ) ( n - 1 )

Submission Info

Submission Time
Task B - トリボナッチ数列
User torus711
Language Haskell (GHC 7.4.1)
Score 100
Code Size 364 Byte
Status AC
Exec Time 105 ms
Memory 1956 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 82 ms 1308 KB
sample_02.txt AC 27 ms 1316 KB
sample_03.txt AC 36 ms 1952 KB
test_1.txt AC 28 ms 1440 KB
test_1000000.txt AC 105 ms 1820 KB
test_1002.txt AC 28 ms 1444 KB
test_104.txt AC 28 ms 1308 KB
test_107843.txt AC 37 ms 1956 KB
test_10980.txt AC 28 ms 1820 KB
test_1212.txt AC 28 ms 1568 KB
test_1238.txt AC 28 ms 1432 KB
test_13194.txt AC 28 ms 1824 KB
test_14.txt AC 27 ms 1304 KB
test_16.txt AC 27 ms 1312 KB
test_2.txt AC 28 ms 1312 KB
test_210782.txt AC 44 ms 1952 KB
test_21694.txt AC 31 ms 1820 KB
test_243.txt AC 28 ms 1308 KB
test_24916.txt AC 29 ms 1824 KB
test_278.txt AC 27 ms 1440 KB
test_3.txt AC 27 ms 1308 KB
test_31.txt AC 28 ms 1308 KB
test_32.txt AC 27 ms 1308 KB
test_42.txt AC 27 ms 1440 KB
test_5555.txt AC 28 ms 1824 KB
test_567914.txt AC 72 ms 1952 KB
test_61868.txt AC 33 ms 1828 KB
test_765671.txt AC 87 ms 1820 KB
test_8195.txt AC 29 ms 1820 KB
test_8353.txt AC 29 ms 1824 KB
test_9.txt AC 28 ms 1308 KB
test_9625.txt AC 30 ms 1820 KB
test_97.txt AC 27 ms 1312 KB
test_998.txt AC 31 ms 1388 KB
test_999998.txt AC 105 ms 1828 KB
test_999999.txt AC 105 ms 1824 KB