Cursus Raku / Addendum 🆕 / Cum datis laborare / Numeri et mathematica / Exercises / Radix digitalis

Solutio: Radix digitalis

Ecce solutio possibilis huius exercitationis.

Codex

my $n = 987654;

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

say $n;

🦋 Inveni codicem fontem in archivo digital-root.raku.

Exitus

3

Commentarii

  1. $n.comb numerum in singula signa cifrarum dividit; [+] ea addit, catenas automatice in numeros vertens.

  2. Anulus repetit dum effectus adhuc plus quam unam cifram habet, itaque consistit simul atque $n infra 10 cadit.

← Radix digitalis   |   Gradus Collatz →