projects
/
testub10.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[gesamt] Added ag/codea/codeb testcases
[testub10.git]
/
gesamt
/
codeb_georg_fib_022.0
diff --git a/gesamt/codeb_georg_fib_022.0
b/gesamt/codeb_georg_fib_022.0
new file mode 100644
(file)
index 0000000..
b2ea26c
--- /dev/null
+++ b/
gesamt/codeb_georg_fib_022.0
@@ -0,0
+1,19
@@
+/* fibonacci */
+
+/* F_0 = 0 */
+/* F_1 = 1 */
+/* F_n = F_{n-1} + F_{n-2} */
+
+method fib(x)
+ var a := 0;
+ var b := 1;
+ var c := x;
+ while not (x < 2)
+ do
+ c := a-(0-b);
+ a := b;
+ b := c;
+ x := x-1;
+ end;
+ return c;
+end;