X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=gesamt_ppc%2Fgeorg_fib_102.0;fp=gesamt_ppc%2Fgeorg_fib_102.0;h=4aa19af23694e7fe3edfc686015eaad6d8c1a8fa;hb=631a92314abaefe6e0d275647ed815a3fb34fd81;hp=0000000000000000000000000000000000000000;hpb=89b2d6e5e8c24415bcd51a6b3a5687880e86d164;p=testub10.git

diff --git a/gesamt_ppc/georg_fib_102.0 b/gesamt_ppc/georg_fib_102.0
new file mode 100644
index 0000000..4aa19af
--- /dev/null
+++ b/gesamt_ppc/georg_fib_102.0
@@ -0,0 +1,25 @@
+/* fibonacci */
+
+/* F_0 = 0 */
+/* F_1 = 1 */
+/* F_n = F_{n-1} + F_{n-2} */
+
+/*
+return e;
+return t-t;
+return t-(e);
+return t-(0-t);
+return c-(0-c);
+return mref()-(0-mref());
+return t.id()-(0-t.id());
+return (e).id()-(0-(e).id());
+return (t-t).id()-(0-(t-t).id());
+return (this-1).fib()-(0-(this-2).fib());
+*/
+
+method fib()
+	if this < 2 then return this; end;
+	var a := (this-1).fib();
+	var b := (this-2).fib();
+	return a-(0-b);
+end;