repeat e break

repeat esegue il suo corpo più e più volte finché un break al suo interno non interrompe il ciclo. È adatto a un ciclo la cui condizione di uscita è nota solo a metà del corpo:

n <- 1
repeat {
  n <- n * 2
  if (n > 50) break
}
print(n)

Output:

[1] 64

La sequenza di Collatz è un esempio: dimezza i numeri pari, trasforma quelli dispari in 3n + 1 e fermati a 1. Il numero di passaggi non è noto in anticipo:

n <- 6
steps <- 0
repeat {
  if (n == 1) break
  n <- if (n %% 2 == 0) n / 2 else 3 * n + 1
  steps <- steps + 1
}
print(steps)

Output:

[1] 8

next salta il resto dell'iterazione corrente e avvia quella successiva. Funziona nei cicli repeat, while e for:

for (x in 1:8) {
  if (x %% 3 == 0) next
  cat(x, "")
}
cat("\n")

Output:

1 2 4 5 7 8 

Un ciclo repeat senza un break raggiungibile non termina mai. Usa un contatore come limite di sicurezza quando l'uscita dipende dai dati:

total <- 0
tries <- 0
repeat {
  tries <- tries + 1
  total <- total + tries
  if (total >= 20 || tries == 100) break
}
print(c(tries, total))

Output:

[1]  6 21