diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-12-05 16:52:56 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-12-05 16:52:56 +0000 |
| commit | 56e9e45171c306f8b539722d3653dafc339212ce (patch) | |
| tree | 3752149b4c9af50fd3ed0bfa648a7a49ee4627eb /transfer/examples | |
| parent | 7c24fcb38faeaada097d2797e9cb0f305dbc637e (diff) | |
Changed test.tr to run a fibNat test.
Diffstat (limited to 'transfer/examples')
| -rw-r--r-- | transfer/examples/fib.tr | 2 | ||||
| -rw-r--r-- | transfer/examples/test.tr | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/transfer/examples/fib.tr b/transfer/examples/fib.tr index 988b5e772..43e533b1f 100644 --- a/transfer/examples/fib.tr +++ b/transfer/examples/fib.tr @@ -9,4 +9,4 @@ 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 +fibNat (Succ (Succ n)) = plus Nat add_Nat (fibNat (Succ n)) (fibNat n)
\ No newline at end of file diff --git a/transfer/examples/test.tr b/transfer/examples/test.tr index 7f94788a4..8f08f8431 100644 --- a/transfer/examples/test.tr +++ b/transfer/examples/test.tr @@ -1,4 +1,4 @@ -main = let x : Type = case n of - n2 -> 2 - n3 -> 3 - in f Numeral
\ No newline at end of file +import nat +import fib + +main = natToInt (fibNat (intToNat 10))
\ No newline at end of file |