raku-rosettacode/programming_tasks/P/Pandigital_prime.md

Pandigital prime

for 1, 0 -> $i {
    say max ($i..7).map: -> $size {
        |($i..$size).permutations».join.grep(&is-prime);
    }
}

Output:

7652413
76540231