Fibonacci sequence: Difference between revisions
Add Cowgol
Not a robot (talk | contribs) (Add Cowgol) |
|||
Line 2,971:
:kill
stop</lang>
=={{header|Cowgol}}==
<lang cowgol>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();</lang>
{{out}}
<pre>0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181</pre>
=={{header|D}}==
| |||