太感谢了！

> 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胜利"))

小白试着解答

欢迎指教