Data commit

Task/Fibonacci-sequence/Cowgol/fibonacci-sequence.cowgol

@@ -0,0 +1,21 @@
+include "cowgol.coh";
+
+sub fibonacci(n: uint32): (a: uint32) is
+    a := 0;
+    var b: uint32 := 1;
+    while n > 0 loop
+        var c := a + b;
+        a := b;
+        b := c;
+        n := n - 1;
+    end loop;
+end sub;
+
+# test
+var i: uint32 := 0;
+while i < 20 loop
+    print_i32(fibonacci(i));
+    print_char(' ');
+    i := i + 1;
+end loop;
+print_nl();