有趣的生活问题怎么用R 实现

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这个用R 怎么实现
求答案 ？
一筐鸡蛋：
1个1个拿，正好拿完。
2个2个拿，还剩1个。
3个3个拿，正好拿完。
4个4个拿，还剩1个。
5个5个拿，还剩1个
6个6个拿，还剩3个。
7个7个拿，正好拿完。
8个8个拿，还剩1个。
9个9个拿，正好拿完。

问筐里有多少鸡蛋？

能算出这道题的智商不一般！

这个用R 怎么实现

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：求答案

1. x<-1
   
2. repeat{
   
3. if(x%%2==1 & x%%3==0 & x%%4==1 & x%%5==1 & x%%6==3 &x%%7==0 & x%%8==1 & x%%9==0){
   
4.         print(x)
   
5.          break
   
6.   }
   
7.   x<-x+1
   
8. }

复制代码

昨天刚做的…这是sas中文论坛的帖子…

偶是初学者，学习上

n <- 1:10000
pos <- (n %% 2 == 1) * (n %%3 == 0) * (n %% 4 == 1) * (n %% 5 == 1) * (n %% 6 == 3) * (n %% 7 == 0) * (n %% 8 == 1) * (n %% 9 == 0)
which (pos == TRUE)
[1]  441 2961 5481 8001

各位同学还没有习惯R语言的向量化思考。

1. x <- 0
   
2. while(TRUE){
   
3.     if(identical(x %% 2:9, c(1,0,1,1,3,0,1,0))) break
   
4.     x <- x + 1
   
5. }

复制代码