fib

tests/programs/fib.alpha

@@ -1,39 +1,63 @@
-(* TEST: [-asc -tc -cg -ir] *)
-
 #include "std.alpha"
 
 function entry : string2integer
-function Fib : integer2integer
+function fib : integer2integer
 
-Fib(i) := {
-        [integer: a; integer: b ; Boolean: d ; integer: c]
-        (*if( i = 0 ) then {
-                return 7;
-        } else {
-                i := i;
-        }*)
-        (*b := b | (a & c);
-        b := 2 < 3;*)
+fib(i) := {
+    [ integer: a; integer: b; integer: count ]
     
-	(* `if(i = 1) then { return 1; } else {
-	     return Fib(i - 1) + Fib(i - 2);
-        }
-*)
+    a := 1;
+    b := 2;
 
-	a := 0;
-	b := 1;
-        while(0 < i) {
-		c := a + b;
-	        a := b;
-		b := c;
-		}
-	return c;
+    if (i = 0) then {
+        return 0;
+    } else {
+        a := a;
+    }
+
+    if (i = 1) then {
+        return 1;
+    } else {
+        a := a;
+    }
+
+    if (i = 2) then {
+        return 2;
+    } else {
+        a := a;
+    }
+
+    count := 2;
+    while (count < i) {
+        
+        count := count + 1;
+    }
+
+    return b;
 }
 
 entry (arg) := {
-        [ integer: x; integer: y ]
-        x := 2;
-(*        x := Fib(2);*)
-        y := printInteger(Fib(3));
-        return 1;
+    [ integer: result; integer: input; integer: fibValue]
+
+    result := printC('E');
+    result := printC('n');
+    result := printC('t');
+    result := printC('e');
+    result := printC('r');
+    result := printC(' ');
+    result := printC('N');
+    result := printC('u');
+    result := printC('m');
+    result := printC('b');
+    result := printC('e');
+    result := printC('r');
+    result := printC(':');
+    result := printC(' ');
+
+    input := inI(1);
+    fibValue := fib(input);
+    
+    result := printI(fibValue);
+
+    return 0;
 }