Raku kurss / Pielikums 🆕 / Darbs ar datiem / Skaitļi un matemātika / Exercises / Ciparu sakne

Risinājums: Ciparu sakne

Šeit ir iespējams risinājums uzdevumam.

Kods

my $n = 987654;

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

say $n;

🦋 Atrodiet programmu failā digital-root.raku.

Izvade

3

Komentāri

1. $n.comb sadala skaitli atsevišķās ciparu rakstzīmēs; [+] tās saskaita, virknes automātiski pārvēršot skaitļos.

2. Cikls atkārtojas, kamēr rezultātā vēl ir vairāk nekā viens cipars, tāpēc tas apstājas, tiklīdz $n nokrīt zem 10.

Kursa navigācija

← Ciparu sakne   |   Kolaca soļi →