Taxicab numbers: Difference between revisions
Content added Content deleted
(Added Elixir) |
m (→{{header|Perl 6}}: escaped the exponent to display the output correctly) |
||
Line 1,381: | Line 1,381: | ||
my $i = $start; |
my $i = $start; |
||
printf "%4d %10d =>\t%s\n", $i++, $_.key, |
printf "%4d %10d =>\t%s\n", $i++, $_.key, |
||
($_.value.map({ sprintf "%4d³ + %-s", $_[0], "$_[1]³" })).join: ",\t" |
($_.value.map({ sprintf "%4d³ + %-s", $_[0], "$_[1]\³" })).join: ",\t" |
||
for %this_stuff.grep( { $_.value.elems > 1 } ).sort( +*.key )[$start-1..$end-1]; |
for %this_stuff.grep( { $_.value.elems > 1 } ).sort( +*.key )[$start-1..$end-1]; |
||
1; |
1; |