Решение: Разлагане на прости множители

Ето едно възможно решение на задачата.

Код

my $n = 360;
my @factors;

for 2..$n -> $d {
    while $n %% $d {
        @factors.push($d);
        $n div= $d;
    }
}

say @factors;

🦋 Намерете програмата във файла prime-factors.raku.

[2 2 2 3 3 5]

За всеки кандидат-делител $d вътрешният while го изважда от $n толкова пъти, колкото се побира, като всеки път добавя $d. Понеже по-малките множители се махат първи, всяко $d, което още дели $n, гарантирано е просто.
$n div= $d е целочислено деление обратно в $n; то смалява числото, докато не остане само 1.