这个循环能并行运行吗（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 循环可以（很容易地）并行运行吗？