Piprimes: Difference between revisions
Added Arturo implementation
SqrtNegInf (talk | contribs) (Added Perl) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 50:
20 20 21 21 21 21 21 21
</pre>
=={{header|Arturo}}==
<lang rebol>primes: select 2..1000 => prime?
piprimes: function [n] -> size select primes 'z [z =< n]
loop split.every: 10 select map 1..100 => piprimes => [& < 22] 'a ->
print map a => [pad to :string & 3]</lang>
{{out}}
<pre> 0 1 2 2 3 3 4 4 4 4
5 5 6 6 6 6 7 7 8 8
8 8 9 9 9 9 9 9 10 10
11 11 11 11 11 11 12 12 12 12
13 13 14 14 14 14 15 15 15 15
15 15 16 16 16 16 16 16 17 17
18 18 18 18 18 18 19 19 19 19
20 20 21 21 21 21 21 21</pre>
=={{header|AWK}}==
<lang AWK>
| |||