X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=aus_sammelwut%2Fpaulchen%2Fublu%2Fss08%2Fabgabe%2Fgesamt%2Ftestcases%2Ffib.0;fp=aus_sammelwut%2Fpaulchen%2Fublu%2Fss08%2Fabgabe%2Fgesamt%2Ftestcases%2Ffib.0;h=1e1c7c434daac723b6e3d0f0a306831fde1859c2;hb=f6171150f9e60240b256808fc31613530b21db6c;hp=0000000000000000000000000000000000000000;hpb=b82da83a0ad2014c11113818eee6bd5fb5f3445c;p=uebersetzerbau-ss10.git

diff --git a/aus_sammelwut/paulchen/ublu/ss08/abgabe/gesamt/testcases/fib.0 b/aus_sammelwut/paulchen/ublu/ss08/abgabe/gesamt/testcases/fib.0
new file mode 100644
index 0000000..1e1c7c4
--- /dev/null
+++ b/aus_sammelwut/paulchen/ublu/ss08/abgabe/gesamt/testcases/fib.0
@@ -0,0 +1,17 @@
+func fib(n)
+  if 1 >= n then return n; end;
+  var fib_n := 1; (* fib(n) *)
+  var fib_n1 := 0; (* fib(n-1) *)
+  var r := 0;
+
+  while n >= 2 do
+    (* calculate fib(n+1) *)
+    r := fib_n + fib_n1;
+    (* update fib(n-1) and fib(n) *)
+    fib_n1 := fib_n;
+    fib_n := r;
+    n := n + (-1);
+  end;
+  return r;
+end;
+