module Main where
fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n - 1) + fib (n - 2)
main :: IO ()
main = do
let values = map fib [0..15]
putStrLn $ "fib(0..15) = " ++ show values
module Main where
fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n - 1) + fib (n - 2)
main :: IO ()
main = do
let values = map fib [0..15]
putStrLn $ "fib(0..15) = " ++ show values
module Main where
fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n - 1) + fib (n - 2)
main :: IO ()
main = do
let values = map fib [0..15]
putStrLn $ "fib(0..15) = " ++ show values
module Main where
fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n - 1) + fib (n - 2)
main :: IO ()
main = do
let values = map fib [0..15]
putStrLn $ "fib(0..15) = " ++ show values
module Main where
fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n - 1) + fib (n - 2)
main :: IO ()
main = do
let values = map fib [0..15]
putStrLn $ "fib(0..15) = " ++ show values
module Main where
fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n - 1) + fib (n - 2)
main :: IO ()
main = do
let values = map fib [0..15]
putStrLn $ "fib(0..15) = " ++ show values