GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Changed test.tr to run a fibNat test.

Browse Source
This commit is contained in:
bringert
2005-12-05 16:52:56 +00:00
parent 224d2451d7
commit 98b8d8d081
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
transfer/examples/fib.tr
View File

@@ -9,4 +9,4 @@ fib n = fib (n-1) + fib (n-2)
fibNat : Nat -> Nat fibNat : Nat -> Nat
fibNat Zero = Succ Zero fibNat Zero = Succ Zero
fibNat (Succ Zero) = Succ Zero fibNat (Succ Zero) = Succ Zero
fibNat (Succ (Succ n)) = plus (fibNat (Succ n)) (fibNat n) fibNat (Succ (Succ n)) = plus Nat add_Nat (fibNat (Succ n)) (fibNat n)

8
transfer/examples/test.tr
View File

@@ -1,4 +1,4 @@
main = let x : Type = case n of import nat
n2 -> 2 import fib
n3 -> 3
in f Numeral main = natToInt (fibNat (intToNat 10))