Piprimes: Difference between revisions
Add Cowgol
Not a robot (talk | contribs) (Add J) |
Not a robot (talk | contribs) (Add Cowgol) |
||
Line 109:
}</lang>
=={{header|Cowgol}}==
<lang cowgol>include "cowgol.coh";
sub isPrime(n: uint8): (r: uint8) is
var i: uint8 := 2;
while i*i < n loop
if n%i == 0 then
r := 0;
return;
end if;
i := i + 1;
end loop;
r := 1;
end sub;
var count: uint8 := 0;
var n: uint8 := 0;
const MAX := 22;
while count < MAX loop
print_i8(count);
print_char('\t');
n := n + 1;
count := count + isPrime(n);
if n % 10 == 0 then
print_nl();
end if;
end loop;
print_nl();</lang>
{{out}}
<pre>0 1 2 3 4 5 5 6 6 7
7 8 8 9 9 9 9 10 10 11
11 11 11 12 12 13 13 13 13 14
14 15 15 15 15 15 15 16 16 16
16 17 17 18 18 18 18 19 19 20
20 20 20 21 21 21 21 21 21</pre>
=={{header|Fermat}}==
<lang fermat>n:=0; p:=0
| |||