msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Transfer: Changed transfer program file extension from .tr to .tra to avoid collision with Troff file extension.

Browse Source
This commit is contained in:
bringert
2005-12-06 16:33:40 +00:00
parent ee4adf5ba8
commit c703a92136
18 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
transfer/examples/fib.tra Normal file
View File

@@ -0,0 +1,12 @@
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 Nat add_Nat (fibNat (Succ n)) (fibNat n)