码迷,mamicode.com
首页 > 其他好文 > 详细

R猜拳游戏解释

时间:2017-06-27 12:56:36      阅读:166      评论:0      收藏:0      [点我收藏+]

标签:win   显示   data   感想   猜拳   sam   enter   包含   lin   

R猜拳游戏解释

作者:梁 蓉

猜拳游戏大概解释:

搜集齐数据框,for循环在三个随机数里抽俩个,抽出的数据放回,继续抽取剪刀石头布,机器人出剪刀石头布,我出对应压制机器人的方法来赢取胜利,我给机器人发出出拳吧的命令,胜负表里就能收到我想让机器人赢还是我赢的命令,当我给出命令胜负表得出结果。

具体解释:

shoujiqi<-data.frame(a=NA,b=NA)     #搜集齐数据集

for(i in 1:50){                     #for循环在1——50

  sample(c("jian","shitou","bu!"),2,replace = T)->shoujiqi[i,]

}                                  #从石头剪子布里随机抽俩个,抽完在放回

unique(shoujiqi)->shengfubiao      #仅有的数据集(胜负表)

fix(shengfubiao)                   #显示表格,手工修改和复制。

#read.delim("clipboard")->shengfubiao

 

jiqiren<-sample(c("jian","shitou","bu!")  #机器人出剪刀石头布

                ,3,prob=c(1,2,3),replace = T) #随机选三个任选1,2,3,然后放回

 

jiqiren

 

result<-c()                        

you<-sample(c("shitou","bu!","jian"),3,prob=c(1,2,3),replace = T)# 我随机出剪刀石头布

,随机选三个任选1,2,3,然后放回

 

for(i in 1:3){                    #for循环1——3

  #readline("chu_quan_ba!")->you[i] #编辑出拳吧的命令

  shengfubiao[which(shengfubiao[,1]==you[i] & shengfubiao[,2]==jiqiren[i]),3]->result[i]

  cat(ifelse(result[i]==1,"you win!",ifelse(result[i]==-1,"you lost","banlence")))

  print(paste("you take the " ,you[i],"and the robot take the",jiqiren[i]))

}                 #输入胜负表,我控制胜负表或者机器人控制胜负表,结果是我赢,避免我输

 

while(i<=20){ #i执行20次

  cat(i,"")   #执行中

  i=i+1

}

result<-data.frame(you,jiqiren) #结果包含我和机器人的论据

data.frame(you,jiqiren,result)  #设计一个包含我和机器人在内的框架

print(paste("you get the number :",sum(result))) #打印粘贴你得到的数,总结结果

我的感想:

  通过这次的R猜拳解释让我学到了很多,这过程中,我认为最宝贵的就是学到了坚持不懈的精神,每当我想中途放弃的时候,老师总会用自己的方法让我坚持下来,所以这次作业的完成离不开老师的指引。虽然这次的作业完成了,达到了老师的低标准,但我自己知道,我离完美还差的很远,自己掌握的知识还是太少,以后一定努力积累知识,以备下次作业做的更完美,达到老师的高标准,争取不辜负老师的期望。

R猜拳游戏解释

标签:win   显示   data   感想   猜拳   sam   enter   包含   lin   

原文地址:http://www.cnblogs.com/GMGHZ971322/p/7084523.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!