Курс Raku / Додаток 🆕 / Робота з даними / Числа та математика / Вправи / Цифровий корінь

Розв’язання: Цифровий корінь

Ось одне з можливих розв’язань задачі.

Код

my $n = 987654;

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

say $n;

🦋 Знайдіть програму у файлі digital-root.raku.

Вивід

3

Коментарі

1. $n.comb розбиває число на окремі символи-цифри; [+] їх додає, автоматично перетворюючи рядки на числа.

2. Цикл повторюється, поки в результаті ще більше однієї цифри, тож він зупиняється, щойно $n падає нижче за 10.

Навігація курсом

← Цифровий корінь   |   Кроки Коллатца →