R语言猜拳问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

a和b猜拳，使用sample(c("石头","剪刀","布"),1)可以随机出一种拳，已经在下面给出，运用if语句或循环语句，若a胜，则print(“a胜”)，若b胜，则print(“b胜”)，若平局，则重复出拳直至分出胜负为止。

求大神解答这道题

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 Sample print 循环语句 AMPL

1. a <- sample(c("石头","剪刀","布"),1)
   
2. b <- sample(c("石头","剪刀","布"),1)
   
3. fun <- function(a,b){
   
4.   if ((a=='石头'&&b=='剪刀')|(a=='剪刀'&&b=='布')|(a=='布'&&b=='石头')){
   
5.     print("a胜")
   
6.     }else if ((b=='石头'&&a=='剪刀')|(b=='剪刀'&&a=='布')|(b=='布'&&a=='石头')){
   
7.       print("b胜")}
   
8.   else fun(sample(c("石头","剪刀","布"),1),sample(c("石头","剪刀","布"),1))
   
9.   }
   
10. fun(a,b)

复制代码

xugami 发表于 2017-6-6 22:29

太感谢了！

> a<-sample(c(1:3),1)
> b<-sample(c(1:3),1)> a<-factor(a,levels = c(1:3),labels =c("剪子","包袱","锤"))
> b<-factor(b,levels = c(1:3),labels =c("剪子","包袱","锤"))
> while(a==b){a<-sample(c(1:3),1);b<-sample(c(1:3),1)}
> ifelse(a-b==-1|a-b==2,print("a胜利"),print("b胜利"))

小白试着解答

欢迎指教