Dá se tato smyčka spustit paralelně (1)?

Následující kód implementuje jednoduchou kostkovou hru. Pravidla jsou tato:

• Inicializace: total <- 0.
• Hodíš jednou kostkou a výsledek přičteš k total.
• Pokud je total sudé, resetuješ ho na nulu.
• Pokud je total větší než 10, hra končí.

V R se to zapíše celkem přímočaře:

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

Myslíš, že tento algoritmus lze (snadno) spustit paralelně?