Piprimes: Difference between revisions
→{{header|Cowgol}}: fix bug
(Realize in F#) |
Not a robot (talk | contribs) (→{{header|Cowgol}}: fix bug) |
||
Line 114:
sub isPrime(n: uint8): (r: uint8) is
var i: uint8 := 2;
while i*i <= n
r := 1;
end if;
end sub;
var count: uint8 := 0;
var n: uint8 :=
const MAX := 22;
Line 133 ⟶ 135:
n := n + 1;
count := count + isPrime(n);
if n % 10 ==
print_nl();
end if;
end loop;
print_nl();
</lang>
{{out}}
<pre>0 1 2
18 18 18 18 18 18 19 19 19 19
20 20 21 21 21 21 21 21
</pre>
=={{header|F_Sharp|F#}}==
<lang fsharp>
|