Super-d numbers: Difference between revisions
m
→{{header|Perl 6}}: Doh! Fix problem that arose when repeated digit was at beginning of number
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: plural) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Doh! Fix problem that arose when repeated digit was at beginning of number) |
||
Line 68:
sub super ($d) {
my $run = $d x $d;
"First {n} super-{$d} numbers:\n{ (^Inf .map( 0 ~ $d * * ** $d ).grep: *.index($run), :k)[^n] }\n"
}
Line 77:
<pre>First 10 super-2 numbers:
19 31 69 81
First 10 super-3 numbers:
261 462 471 481 558 753 1036 1046 1471 1645
First 10 super-4 numbers:
1168 4972 7423 7752 8431 10267 11317 11487 11549 11680
First 10 super-5 numbers:
| |||