repeat và break

repeat chạy phần thân lặp đi lặp lại cho đến khi một break bên trong dừng vòng lặp. Cấu trúc này phù hợp với vòng lặp mà điều kiện thoát chỉ được biết ở giữa phần thân:

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

Đầu ra:

[1] 64

Dãy Collatz là một ví dụ: chia đôi các số chẵn, biến các số lẻ thành 3n + 1 và dừng ở 1. Ta không biết trước số bước cần thực hiện:

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)

Đầu ra:

[1] 8

next bỏ qua phần còn lại của lần lặp hiện tại và bắt đầu lần lặp tiếp theo. Lệnh này hoạt động trong các vòng lặp repeat, while và for:

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

Đầu ra:

1 2 4 5 7 8 

Vòng lặp repeat không có break nào có thể tiếp cận sẽ không bao giờ kết thúc. Hãy dùng một bộ đếm làm giới hạn an toàn khi điều kiện thoát phụ thuộc vào dữ liệu:

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

Đầu ra:

[1]  6 21