Lösung: Summieren bis über hundert

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

Code

my $sum = 0;
my $n   = 0;

loop {
    $n++;
    $sum += $n;
    last if $sum > 100;
}

say "reached $sum after adding 1..$n";

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

reached 105 after adding 1..14

Ein nacktes loop { } wiederholt sich endlos; das last if $sum > 100 ist es, was es beendet, sobald die Summe die Schwelle überschreitet.
1 + 2 + … + 14 ist 105, die erste Teilsumme über 100, die Schleife hält also mit $n bei 14 an.
Diese Summe können Sie mit einer Reduktion prüfen:
```
say [+] 1..14; # 105
```