Kann diese Schleife parallel laufen (1)?

Der folgende Code implementiert ein einfaches Würfelspiel. Das Spiel läuft wie folgt ab:

• Initialisieren: total <- 0.
• Würfle einmal und addiere das Ergebnis zu total.
• Wenn total gerade ist, setze total auf null zurück.
• Wenn total größer als 10 ist, endet das Spiel.

Das lässt sich in R unkompliziert umsetzen

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

Denkst du, dass sich dieser Algorithmus (einfach) parallel ausführen lässt?