21 lines
354 B
Text
21 lines
354 B
Text
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();
|