8 lines
203 B
Haskell
8 lines
203 B
Haskell
|
fib :: Integer -> Maybe Integer
|
||
|
|
fib n
|
||
|
|
| n < 0 = Nothing
|
||
|
|
| otherwise = Just $ real n
|
||
|
|
where real 0 = 1
|
||
|
|
real 1 = 1
|
||
|
|
real n = real (n-1) + real (n-2)
|