hacktoberfest-2018/code/hello.hs

mirror of https://github.com/c0de-archive/hacktoberfest-2018.git synced 2025-01-18 13:43:15 +00:00
{-# In Haskell, fibonacci function is considered a Hello world! application. #-}
fibAcc n = go n (0,1)
  where
    go !n (!a, !b) | n==0      = a
                   | otherwise = go (n-1) (b, a+b)
Add - Haskell Hello World! 2018-10-06 09:14:59 +02:00			`{-# In Haskell, fibonacci function is considered a Hello world! application. #-}`
			`fibAcc n = go n (0,1)`
			`where`
			`go !n (!a, !b) \| n==0 = a`
			`\| otherwise = go (n-1) (b, a+b)`