RosettaCodeData/Task/Fibonacci-sequence/Idris/fibonacci-sequence-2.idris

5 lines
133 B
Plaintext

fibRecursive : Nat -> Nat
fibRecursive Z = Z
fibRecursive (S Z) = (S Z)
fibRecursive (S (S n)) = fibRecursive (S n) + fibRecursive n