编写一个函数，找出1000以内所有的能被最多两组不同质数相加得到的偶数。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

编写一个函数，找出1000以内所有的能被最多两组不同质数相加得到的偶数。最后输出结果要包括偶数本身和对应的相加的质数。

例如：12=5+7为一组不同质数；14=7+7为一组相同质数；18=5+13=7+11为两组不同质数；56=3+53=13+43=19+37为三组不同质数。

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：输出结果 R语言软件 经济学人

1. zs <- matrix(c(2,3),2)
   
2. for (i in 4:1000) {
   
3.   n1 <- 2:floor(sqrt(i))
   
4.   ifelse(any(i%%n1==0)
   
5.          ,zs <- rbind(zs,NULL)
   
6.          ,zs <- rbind(zs,i))
   
7. }
   
8. n2 <- as.data.frame(t(combn(x = as.vector(zs),m = 2)))
   
9. n2$sum1 <- n2[,1]+n2[,2]
   
10. n3 <- data.frame(table(n2$sum1))
    
11. n4 <- n3[n3$Freq==2,]
    
12. names(n4) <- c("sum1","freq")
    
13. n5 <- merge(x = n4,y = n2, by = "sum1", all.x = T, sort = F)
    
14. n5

复制代码

Nothing_LF 发表于 2019-5-14 16:13

上面是针对于只有2组的，忘记把1组的情况加进去，自己加就好了

Nothing_LF 发表于 2019-5-14 16:13

万分感谢&#128591;～

Nothing_LF 发表于 2019-5-14 16:13

万分感谢&#128591;～

给你一种不用for 的方法，参考下吧

1. num = primes::generate_primes(max=1000)
   
2. df = t(combn(num,2))
   
3. id=apply(df,1,sum)
   
4. dt = data.frame(g=id, x=df[,1], y=df[,2])
   
5. library(tidyverse)
   
6. dt[dt$g %in%
   
7.   (dt %>% group_by(g) %>% summarise(cot = n()) %>%filter(cot==2) %>%
   
8.   select(g)%>%c())$g,] %>%
   
9.   select(x,y,g)%>%
   
10.   arrange(g)

复制代码

谢谢

我也来学习一下

学到了

hjkjkh