Quadrat special primes: Difference between revisions
m
→{{header|Perl}}: fix output
SqrtNegInf (talk | contribs) (Added Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: fix output) |
||
Line 263:
} until $sp[-1] >= 16000;
pop @sp and say ((sprintf '%-7d'x@sp, @sp) =~ s/.{1,$#sp}\K\s/\n/gr);</lang>
{{out}}
<pre>2 3 7 11 47 83 227
| |||