全数字倍数

作者：Andrei Osipov

将数字 192 分别乘以 1、2 和 3

192 × 1 = 192 192 × 2 = 384 192 × 3 = 576

将每个乘积连接起来，我们得到 1 到 9 的全数字，192384576。我们将 192384576 称为 192 和 (1,2,3) 的连接积

从 9 开始，分别乘以 1、2、3、4 和 5，也可以得到同样的结果，得到全数字 918273645，它是 9 和 (1,2,3,4,5) 的连接积。

可以构成一个整数与 (1,2, ... , n) 的连接积的最大的 1 到 9 的 9 位全数字是多少，其中 n > 1？

use v6;

sub concat-product($x, $n) {
    + [~] do for 1...$n { $x * $_ }
}

sub is-pandigital(Int $n is copy) {
    return unless 123456789 <= $n <= 987654321;
    my $x = 0;
    loop ( ; $n != 0 ; $n div=10) {
        my $d = $n mod 10;
        $x += $d * 10 ** (9 - $d);
    }
    $x == 123456789;
}

say max gather for 1 .. 9999 -> $x {
    next if $x !~~ /^^9/;
    for 2 .. 5 -> $n {
        my $l = concat-product $x, $n;
        take $l if is-pandigital $l;
    }
}