Solución: Raíz digital

Aquí tienes una posible solución para la tarea.

Código

my $n = 987654;

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

say $n;

🦋 Puedes encontrar el código fuente en el archivo digital-root.raku.

$n.comb parte el número en sus caracteres de dígito individuales; [+] los suma, convirtiendo automáticamente las cadenas en números.
El bucle se repite mientras el resultado siga teniendo más de un dígito, así que se detiene en cuanto $n baja de 10.