Submission #157598

---

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 )

main = readLn >>= ( pred >>> ( trib !! ) >>> print )

zipWith3' f (a:as) (b:bs) (c:cs) = res `seq` res : zipWith3' f as bs cs
	where
		res = f a b c
zipWith3' _ _ _ _ = []

trib = 0 : 0 : 1 : zipWith3' ( \ !a !b !c -> ( a + b + c ) `mod` 10007 ) trib ( tail trib ) ( ( tail . tail ) trib )

Submission Info

Judge Result