diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-28 21:45:22 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-28 21:45:22 +0000 |
| commit | 02c23401a7a3e54d48084fc2796a485de36383f1 (patch) | |
| tree | 03574e9f1c862f2b5685741c6c9d8ee8029aea21 /transfer/examples/fib.tr | |
| parent | 5a82068ddc0e75ee2f2280ffb5da9cda3e53bac3 (diff) | |
Changed all example programs to use layout syntax.
Diffstat (limited to 'transfer/examples/fib.tr')
| -rw-r--r-- | transfer/examples/fib.tr | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/transfer/examples/fib.tr b/transfer/examples/fib.tr index 91bb69ed7..30513e226 100644 --- a/transfer/examples/fib.tr +++ b/transfer/examples/fib.tr @@ -1,11 +1,11 @@ -import nat ; +import nat -fib : Int -> Int ; -fib 0 = 1 ; -fib 1 = 1 ; -fib n = fib (n-1) + fib (n-2) ; +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 +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 |