Piprimes: Difference between revisions

(Realize in F#)
Line 114:
sub isPrime(n: uint8): (r: uint8) is
var i: uint8 := 2;
whiler i*i:= < n loop0;
if n%i >== 02 then
while i*i <= n r := 0;loop
return;if n%i == 0 then
end if return;
i := i + 1end if;
end loop i := i + 1;
r := 1 end loop;
r := 1;
end if;
end sub;
 
var count: uint8 := 0;
var n: uint8 := 01;
const MAX := 22;
 
Line 133 ⟶ 135:
n := n + 1;
count := count + isPrime(n);
if n % 10 == 01 then
print_nl();
end if;
end loop;
print_nl();</lang>
</lang>
 
{{out}}
<pre>0 1 2 32 43 53 54 64 64 74
75 85 86 96 96 96 97 107 10 8 11 8
118 11 8 11 9 12 9 12 9 13 9 13 139 13 9 14 10 10
1411 1511 1511 1511 1511 1511 1512 1612 1612 1612
1613 1713 1714 1814 1814 1814 1815 1915 1915 2015
2015 2015 2016 2116 2116 2116 2116 2116 21</pre>17 17
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>
2,094

edits