¿Puede este bucle ejecutarse en paralelo (1)?

El siguiente fragmento de código implementa un juego sencillo de dados. El juego funciona así:

• Inicializa: total <- 0.
• Lanza un dado y súmalo a total.
• Si total es par, restablece total a cero.
• Si total es mayor que 10, el juego termina.

Esto se puede programar fácilmente en 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

¿Crees que este algoritmo se puede ejecutar (fácilmente) en paralelo?