用最简单的程序求1~n之间的所有质数，如何写程序？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题，用最简单的程序求1~n之间的所有质数，如何写程序？请指教

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：最简单 如何写 请指教 程序 质数

primes3 <- function(n){
    p <- 2:n
    i <- 1
    while (p[i] <= sqrt(n)) {
        p <-  p[p %% p[i] != 0 | p==p[i]]
        i <- i+1
    }
    p
}

thanks，very useful

ss<-function(n){a<-1:n;b<-numeric(length(a));for (i in 3:n){if (all((a[i]%%a[2:(i-1)])>0)==1) a[i]->b[i]};d<-c(2,b[b>2]);d}
能不能在我的程序基础上
修改更为简洁点

1. #####素数计算1
   
2. primes1 <- function(n){
   
3.   p <- 2:n
   
4.   i <- 1
   
5.   while(p[i] <= sqrt(n))
   
6.   {
   
7.     p <- p[p %% p[i] != 0 | p==p[i]]#条件：
   
8.     i <- i+1
   
9.   }
   
10.   print(p)
    
11. }
    
12. primes1(100)
    
13. #####素数计算2
    
14. primes2 <- function(n=100){
    
15.   p<-2
    
16.   for(i in 2:n)
    
17.     if(any(i%%2:(i-1)==0)==F)
    
18.       p <- c(p,i)
    
19.     return(p)
    
20. }
    
21. primes2(100)

复制代码