Poate această buclă să ruleze în paralel (1)?

Următoarea secvență de cod implementează un joc simplu cu zaruri. Regulile jocului sunt:

• Inițializare: total <- 0.
• Aruncă un zar și adaugă rezultatul la total.
• Dacă total este par, resetează total la zero.
• Dacă total este mai mare decât 10, jocul se termină.

Acesta este ușor de implementat în R:

total <- no_of_rolls <- 0 # Initialize
while(total < 10) {
  total <- total + sample(1:6, 1)

  if(total %% 2 == 0) total <- 0  # If even. Reset to 0

  no_of_rolls <- no_of_rolls + 1
}
no_of_rolls

Crezi că acest algoritm poate fi rulat (ușor) în paralel?