RosettaCodeData/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-15.hs

import Data.List (unfoldr)

fibs :: [Integer]
fibs = unfoldr (\(x, y) -> Just (x, (y, x + y))) (0, 1)

fib n :: Integer -> Integer
fib n = fibs !! n
Data update 2024-07-13 15:19:22 -07:00			`import Data.List (unfoldr)`
Initial data commit 2023-07-01 11:58:00 -04:00
Data update 2024-07-13 15:19:22 -07:00			`fibs :: [Integer]`
			`fibs = unfoldr (\(x, y) -> Just (x, (y, x + y))) (0, 1)`
Initial data commit 2023-07-01 11:58:00 -04:00
Data update 2024-07-13 15:19:22 -07:00			`fib n :: Integer -> Integer`
			`fib n = fibs !! n`