Skip to content

Instantly share code, notes, and snippets.

@kei-q

kei-q/hoge.hs

Created March 17, 2016 12:30
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kei-q/1d6fca65b0a9693c5257 to your computer and use it in GitHub Desktop.
Save kei-q/1d6fca65b0a9693c5257 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
hoge.hs
main :: IO ()
main = do
return $ zip [1..] [1..]
putStrLn "hoge"
fib1 = 1 : 1 : zipWith (+) fib1 (tail fib1)
fib2 0 = 1
fib2 1 = 1
fib2 n = fib2 (n-1) + fib2 (n-2)
fib3 = 1 : go 0 1
where
go m n = m+n : go n (m+n)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment