X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=testub10.git;a=blobdiff_plain;f=codeb%2Fskinner33_05.0;fp=codeb%2Fskinner33_05.0;h=f97f4fb3a6b860ba00e1a72896601c6207200067;hp=0000000000000000000000000000000000000000;hb=612d41c3b5fa0813f773ae0ccaec9647370b6641;hpb=38f018186640119ba3b4aa44f7b9a2b23483c551

diff --git a/codeb/skinner33_05.0 b/codeb/skinner33_05.0
new file mode 100644
index 0000000..f97f4fb
--- /dev/null
+++ b/codeb/skinner33_05.0
@@ -0,0 +1,11 @@
+method fib()
+  var n:=0;
+  var a:=0;
+  var b:=1;
+  while n<this do
+    n:=n--1;
+	b:=b-(0-a);
+    a:=b-a;
+  end;
+  return a;
+end;