gesamt/georg_fib_102.0

   1 /* fibonacci */
   2
   3 /* F_0 = 0 */
   4 /* F_1 = 1 */
   5 /* F_n = F_{n-1} + F_{n-2} */
   6
   7 /*
   8 return e;
   9 return t-t;
  10 return t-(e);
  11 return t-(0-t);
  12 return c-(0-c);
  13 return mref()-(0-mref());
  14 return t.id()-(0-t.id());
  15 return (e).id()-(0-(e).id());
  16 return (t-t).id()-(0-(t-t).id());
  17 return (this-1).fib()-(0-(this-2).fib());
  18 */
  19
  20 method fib()
  21         if this < 2 then return this; end;
  22         var a := (this-1).fib();
  23         var b := (this-2).fib();
  24         return a-(0-b);
  25 end;