Чи можна запустити цей цикл паралельно (1)?

Нижче наведено фрагмент коду, що реалізує просту гру в кості. Правила такі:

• Ініціалізація: total <- 0.
• Киньте один кубик і додайте значення до total.
• Якщо total парне, скиньте total до нуля.
• Якщо total більше за 10, гра завершується.

Це легко закодувати в 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

Як ви вважаєте, чи можна (без особливих зусиль) запустити цей алгоритм паралельно?