作者 Anonymous [actionscript] 2012-03-07 22:01 (点击下载)

fix f = f (fix f)
addmod :: Int -> Int -> Int
addmod x y = (x + y) `rem` 1000000009
 
fibnacci = fix ((0:) . scanl addmod 1)
main = print $ fibnacci !! 5000