mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 21:39:32 -06:00
12 lines
236 B
Plaintext
12 lines
236 B
Plaintext
import nat
|
|
import prelude
|
|
|
|
fib : Integer -> Integer
|
|
fib 0 = 1
|
|
fib 1 = 1
|
|
fib n = fib (n-1) + fib (n-2)
|
|
|
|
fibNat : Nat -> Nat
|
|
fibNat Zero = Succ Zero
|
|
fibNat (Succ Zero) = Succ Zero
|
|
fibNat (Succ (Succ n)) = plus (fibNat (Succ n)) (fibNat n) |