Kurso de Raku / Aldono 🆕 / Labori kun datumoj / Nombroj kaj matematiko / Exercises / Cifera radiko

Solvo: Cifera radiko

Jen ebla solvo de la tasko.

Kodo

my $n = 987654;

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

say $n;

🦋 Vi povas trovi la fontkodon en la dosiero digital-root.raku.

Eligo

3

Komentoj

1. $n.comb disigas la nombron en ĝiajn unuopajn ciferajn signojn; [+] adicias ilin, nombrigante la ĉenojn aŭtomate.

2. La buklo ripetiĝas, dum la rezulto ankoraŭ havas pli ol unu ciferon, do ĝi haltas tuj kiam $n falas sub 10.

Kursa navigado

← Cifera radiko   |   Paŝoj de Collatz →