mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 01:22:51 -06:00
Move transfer into the GF repo.
This commit is contained in:
11
transfer/examples/fib.tr
Normal file
11
transfer/examples/fib.tr
Normal file
@@ -0,0 +1,11 @@
|
||||
import nat ;
|
||||
|
||||
fib : Int -> Int ;
|
||||
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) ;
|
||||
Reference in New Issue
Block a user