游戏只有一个玩家，有 1~9 九张牌，掷俩骰子并设点数之和为 n，此时（详见描述）……？ 第1页

       game0<-function(n=9) {     l<-n     poker<-0:n     while(l>0)     {         a<-ceiling(runif(2,0,6))         toss<-data.frame(a[1],a[2],fix.empty.names = FALSE)         row.names(toss)='toss'         print(toss)    #投掷两枚骰子          a=sum(a)         option<-c()         for(i in poker)    #生成出牌策略全空间         {             if(is.element(a-i,poker)&i!=a-i)option<-c(option,i)         }         m<-length(option)         if(m==0)return(list('Remainder Pokers'=poker[-1]))          b<-ceiling(runif(1,0,m))    #随机选择策略         op<-option[b]         if(op==0)op=a         card<-data.frame(op,a-op,fix.empty.names = FALSE)         row.names(card)='card'         print(card)    #出牌                  c=which(poker==op)         poker<-poker[-c]         l<-l-1         if(op!=a)         {             d=which(poker==(a-op))             poker<-poker[-d]             l<-l-1         }     }     return(list('Remainder Pokers'=NULL)) }     

       > game0()          toss 5 4          card 6 3          toss 5 3          card 7 1          toss 6 1          card 5 2          toss 5 4          card 9 0          toss 3 3 $`Remainder Pokers` [1] 4 8     

       game<-function(n=9) {     l<-n     poker<-0:n     while(l>0)     {         a<-ceiling(runif(2,0,6))         a=sum(a)         option<-c()         for(i in poker)         {             if(is.element(a-i,poker)&i!=a-i)option<-c(option,i)         }         m<-length(option)         if(m==0)return(length(poker[-1]))    #输出剩余牌数         b<-ceiling(runif(1,0,m))         op<-option[b]         if(op==0)op=a                  c=which(poker==op)         poker<-poker[-c]         l<-l-1         if(op!=a)         {             d=which(poker==(a-op))             poker<-poker[-d]             l<-l-1         }     }     return(0)    #否则牌全部出完，胜！ }  test<-function(n)    #进行 n 次实验，输出胜率（频率） {     win<-0     for(i in 1:n)if(game()==0)win<-win+1     win/n     win<-data.frame('Winning Percentage'=win/n)     row.names(win)=''     print(win) }     

       > test(1000000)  Winning.Percentage             0.02571