ลูปนี้รันแบบขนานได้ไหม (2)?

คุณสนุกกับเกมลูกเต๋าก่อนหน้านี้มาก จึงอยากเล่นหลายรอบ! จึงนำโค้ดเดิมมาห่อเป็นฟังก์ชัน:

play <- function() {
  total <- no_of_rolls <- 0
  while(total < 10) {
    total <- total + sample(1:6, 1)

    # If even. Reset to 0
    if(total %% 2 == 0) total <- 0 
    no_of_rolls <- no_of_rolls + 1
  }
  no_of_rolls
}

แล้วสร้างลูปสำหรับเล่นเกม:

results <- numeric(100)
for(i in seq_along(results)) 
    results[i] <- play()

คิดว่า for ลูปนี้สามารถรันแบบขนานได้ (อย่างง่าย) ไหม?