From c703a92136ce579282c63c6e31fff76cc84b37ce Mon Sep 17 00:00:00 2001 From: bringert Date: Tue, 6 Dec 2005 16:33:40 +0000 Subject: Transfer: Changed transfer program file extension from .tr to .tra to avoid collision with Troff file extension. --- transfer/examples/fib.tra | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 transfer/examples/fib.tra (limited to 'transfer/examples/fib.tra') diff --git a/transfer/examples/fib.tra b/transfer/examples/fib.tra new file mode 100644 index 000000000..43e533b1f --- /dev/null +++ b/transfer/examples/fib.tra @@ -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) \ No newline at end of file -- cgit v1.2.3