repeat i break

repeat uruchamia swoje ciało raz za razem, aż instrukcja break znajdująca się wewnątrz go zatrzyma. Nadaje się do pętli, której warunek zakończenia jest znany dopiero w trakcie wykonywania ciała:

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

Wynik:

[1] 64

Przykładem jest ciąg Collatza: dziel liczby parzyste przez dwa, zamieniaj nieparzyste na 3n + 1 i zatrzymaj się na 1. Liczba kroków nie jest znana z góry:

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)

Wynik:

[1] 8

next pomija resztę bieżącej iteracji i rozpoczyna następną. Działa w pętlach repeat, while i for:

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

Wynik:

1 2 4 5 7 8 

Pętla repeat bez osiągalnego break nigdy się nie kończy. Użyj licznika jako limitu bezpieczeństwa, gdy wyjście zależy od danych:

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

Wynik:

[1]  6 21