diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-25 16:36:19 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-25 16:36:19 +0000 |
| commit | dbe8e61acc616b8f5ac07e8df89eb98a7997c29d (patch) | |
| tree | 6e379f18986fc60f5606e023def46abdf770dca5 /transfer/examples/fib.tr | |
| parent | fe2731e5f8e301b5a0169bf8b667bb6c13bae80b (diff) | |
Move transfer into the GF repo.
Diffstat (limited to 'transfer/examples/fib.tr')
| -rw-r--r-- | transfer/examples/fib.tr | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/transfer/examples/fib.tr b/transfer/examples/fib.tr new file mode 100644 index 000000000..91bb69ed7 --- /dev/null +++ b/transfer/examples/fib.tr @@ -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) ;
\ No newline at end of file |