doc: paulchen beispiele {code{a,b},gesamt} entpackt (jedes mal entpacken nervt langsa...

[uebersetzerbau-ss10.git] / aus_sammelwut / paulchen / ublu / ss08 / abgabe / codeb / testcases / .svn / text-base / fib.0.svn-base

diff --git a/aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/testcases/.svn/text-base/fib.0.svn-base b/aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/testcases/.svn/text-base/fib.0.svn-base
new file mode 100644 (file)
index 0000000..1e1c7c4
--- /dev/null
+++ b/aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/testcases/.svn/text-base/fib.0.svn-base
@@ -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;
+