Решение: Сума, докато надхвърли сто

Ето едно възможно решение на задачата.

Код

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

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

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

🦋 Намерете програмата във файла sum-until.raku.

reached 105 after adding 1..14

Голият loop { } се повтаря вечно; прекратява го именно last if $sum > 100, щом сумата премине прага.
1 + 2 + … + 14 е 105 — първата частична сума над 100, — така че цикълът спира, когато $n е 14.
Можете да проверите тази сума със свиване:
```
say [+] 1..14; # 105
```