Add fibonacci

This commit is contained in:
joachimschmidt557 2019-06-18 18:25:29 +02:00
parent a33deb18c7
commit f5864eb14b

8
Fib.hs Normal file
View file

@ -0,0 +1,8 @@
fib :: Integer -> Integer
fib 0 = 0
fib 1 = 1
fib n =
fib (n-2) + fib (n-1)
main =
print (fib 10)