Ticket #3808: prod.hs

File prod.hs, 215 bytes (added by paolino, 4 years ago)
Line 
1import qualified Data.ByteString.Lazy as BS
2import System.IO
3import Data.Binary
4
5
6
7fibs = 0 : 1 : zipWith (+) fibs (tail fibs) :: [Integer]
8main = do BS.hPutStr stdout . encode $ take 5000 fibs -- [(0::Integer)..]