Решение: Цифров корен

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

Код

my $n = 987654;

while $n >= 10 {
    $n = [+] $n.comb;
}

say $n;

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

$n.comb разбива числото на отделните му знаци-цифри; [+] ги събира, като автоматично превръща низовете в числа.
Цикълът се повтаря, докато резултатът още има повече от една цифра, така че спира веднага щом $n падне под 10.