Mersenne primes: Difference between revisions
m
→{{header|Perl 6}}: Throw away some intermediate variables
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 entry) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Throw away some intermediate variables) |
||
Line 190:
use Gumbo;
my $
say 'All known Mersenne primes as of ', Date(now);
Line 198 ⟶ 196:
say 'M', ++$, ": 2$_ - 1"
for $table[1]».[*][0][*].comb(/'exp_lo='\d+/)».subst(/\D/, '',:g)
.trans([<0123456789>.comb] => [<⁰¹²³⁴⁵⁶⁷⁸⁹>.comb]).words;
</lang>
{{out}}
<pre>All known Mersenne primes as of 2018-01-27
|