aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/testcases/fib.0

   1 func fib(n)
   2   if 1 >= n then return n; end;
   3   var fib_n := 1; (* fib(n) *)
   4   var fib_n1 := 0; (* fib(n-1) *)
   5   var r := 0;
   6
   7   while n >= 2 do
   8     (* calculate fib(n+1) *)
   9     r := fib_n + fib_n1;
  10     (* update fib(n-1) and fib(n) *)
  11     fib_n1 := fib_n;
  12     fib_n := r;
  13     n := n + (-1);
  14   end;
  15   return r;
  16 end;
  17