Multiplicatively perfect numbers: Difference between revisions

m
→‎{{header|Raku}}: minor simplification
m (→‎{{header|Raku}}: Add a Raku example)
m (→‎{{header|Raku}}: minor simplification)
Line 411:
printf "%8s MPNs less than %9s, %7s semiprimes.\n",
comma(my $count = +@mpn.&upto($_)), .Int.&comma,
comma $count + @primes.map(*²).&upto($_) - @primes.map(*³)cubes.&upto($_) - 1;
}</syntaxhighlight>
{{out}}
10,333

edits