Factorions: Difference between revisions

=={{header|Perl 6}}==

{{works with|Rakudo|2019.07.1}}

<lang perl6>constant @factorial = 1, |[\*] 1..*;

constant $limit = 1500000;

constant $bases = 9 .. 12;

my @result;

$bases.race(:1batch).map: -> $base {

@result[$base] = "\nFactorions in base $base:\n1 2";

sink (1 .. $limit div $base).map: -> $i {

my $product = $i * $base;

my $partial;

for $i.polymod($base xx *) {

$partial += @factorial[$_];

last if $partial > $product

}

next if $partial > $product;

my $sum;

for ^$base {

last if ($sum = $partial + @factorial[$_]) > $product + $_;

@result[$base] ~= " $sum" and last if $sum == $product + $_

}

}

}

.say for @result[$bases];</lang>

{{out}}

<pre>Factorions in base 9:

1 2 41282

Factorions in base 10:

1 2 145 40585

Factorions in base 11:

1 2 26 48 40472

Factorions in base 12:

1 2</pre>