Mersenne primes: Difference between revisions
Content added Content deleted
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: | Line 190: | ||
use Gumbo; |
use Gumbo; |
||
my $ |
my $table = parse-html(HTTP::UserAgent.new.get('https://www.mersenne.org/primes/').content, :TAG<table>); |
||
my $table = parse-html($html, :TAG<table>); |
|||
say 'All known Mersenne primes as of ', Date(now); |
say 'All known Mersenne primes as of ', Date(now); |
||
Line 198: | Line 196: | ||
say 'M', ++$, ": 2$_ - 1" |
say 'M', ++$, ": 2$_ - 1" |
||
for $table[1]».[*][0][*].comb(/'exp_lo='\d+/)».subst(/\D/, '',:g) |
for $table[1]».[*][0][*].comb(/'exp_lo='\d+/)».subst(/\D/, '',:g) |
||
.trans([<0123456789>.comb] => [<⁰¹²³⁴⁵⁶⁷⁸⁹>.comb]).words; |
.trans([<0123456789>.comb] => [<⁰¹²³⁴⁵⁶⁷⁸⁹>.comb]).words; |
||
</lang> |
|||
{{out}} |
{{out}} |
||
<pre>All known Mersenne primes as of 2018-01-27 |
<pre>All known Mersenne primes as of 2018-01-27 |