Kan den här loopen köras parallellt (1)?

Följande kod implementerar ett enkelt tärningsspel. Spelet går till så här:

• Initialisering: total <- 0.
• Kasta en tärning och addera resultatet till total.
• Om total är jämnt, återställ total till noll.
• Om total är större än 10 är spelet slut.

Detta är enkelt att koda i 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

Tror du att den här algoritmen kan köras parallellt (på ett enkelt sätt)?