Raku-Kurs / Anhang 🆕 / Ablauf und Funktionen / Subroutinen und funktionaler Stil / Exercises / Quersumme durch Rekursion

Lösung: Quersumme durch Rekursion

Hier ist eine mögliche Lösung der Aufgabe.

Code

sub digit-sum($n) {
    return $n if $n < 10;
    return $n % 10 + digit-sum($n div 10);
}

say digit-sum(12345);

🦋 Du findest den Quellcode in der Datei recursive-digit-sum.raku.

Ausgabe

15

Kommentare

1. Der Grundfall ist eine einstellige Zahl, die ihre eigene Quersumme ist. Sonst schält die Routine mit $n % 10 die letzte Ziffer ab und ruft sich auf dem Rest, $n div 10, selbst auf.

Kursnavigation

← Quersumme durch Rekursion   |   Zwei Funktionen komponieren →