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