solution/cw3/fib.while
changeset 894 4d5058706f1b
parent 893 908e4f6cdf7c
child 895 550676e542d2
--- a/solution/cw3/fib.while	Fri Oct 28 09:08:13 2022 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,13 +0,0 @@
-write "Fib: ";
-read n;  
-minus1 := 0;
-minus2 := 1;
-while n > 0 do {
-       temp := minus2;
-       minus2 := minus1 + minus2;
-       minus1 := temp;
-       n := n - 1
-};
-write "Result: ";
-write minus2 
-