重复抽奖，直到某些数字匹配

Question

使用R，我创建了一个简单的彩票机，该彩票机应在45个数字中抽取6个而不进行替换：sample(1:45, 6, replace =F)。

我的目标是为此彩票机创建一个循环，以使其保持抽奖，直到指定的六个数字集，例如34、29、19、3、11、43是匹配的-进一步需要知道机器必须抽多少次才能找到这6个正确的数字。

您对如何构建此循环有任何建议吗？

Answer 1

“ set”是要与绘图匹配的特定集合，变量“ i”计算所需的重复次数，变量draw保存当前绘图。当然，您也可以尝试使用4或5个数字。

set<-c(9,11,19,29,34,43)
i<-1
draw<-rep(0,6)
while(any(set!=draw))
{
draw<-sort(sample(1:45,6,replace=FALSE))
i<-i+1
}