素数関数、素数を印刷

Question

私はRでいくつかのプログラミング演習をしようとしており、数値が素数であるかどうかをチェックしたい場合は、因子を出力したいと考えています。 IF文以外のこの種類の作業は、最初のゼロ以外の剰余で停止します。任意の提案をいただければ幸いです。おかげさまで

num<-12 
x<-2 
while(x < num){ 
    if(num%%x == 0){ 
    print(paste(x, "is a factor of", num)) 
    x <- x+1 
    print(paste(num, "is not a prime number")) 
} else { 
    x <- num 
    print(paste(num, "is a prime number")) 
    } 
} 

Answer 1

1. あなたはあなたがちょうどその除数によって確認された数を分割して、増加する前同じ除数でチェックを継続する必要がある素因数を印刷したい場合。これが2を2にする必要があるときに4を重要な要素として与える理由です。
2. 数字がxで割り切れない場合は、次の数字を確認するためにxを増やす必要があります。これがすぐに15が素数であることがわかります。また

   num <- 12 
   current <- num 
   x <- 2 
   
   while (x <= num - 1){ 
       while (current %% x == 0) { 
       current <- current/x 
       print(paste(x, "is a prime factor of", num)) 
       } 
       x <- x + 1 
   } 
   if (num == current) print(paste(num, "is a prime number")) 
   

   ：

改善の余地がたくさんで非常に迅速かつ汚い実装
Rは本当にこのような何かが行われるべき言語ではありません。
ベクトル化できないので、Rはこれらのことを行うには非常に貧弱です。 確率論的テスト（Rでも遅くなる可能性があります）を使用しない限り、素数をチェックすることは計算上非常に集中的です。 R.内

Answer 2

num <- 7 # number to be evaluated 
factors <- integer(num - 2) # initialize factors 

# loop from 2 to num-1 
for (i in 2:(num-1)) { 
    # check if i is a factor of num 
    if ((num%%i)==0) { 
    # add i to vector of factors 
    factors[i-1] <- i 
    } 
} 

# remove factors==0 
factors <- factors[factors!=0] 

# check if vector factors is not empty 
# length(factors) returns false only if factors is empty 
if (length(factors)) { 
    cat(paste(num, "is NOT a prime number. Factors:\n")) 
    cat(factors) 
} else { 
    cat(paste(num, "is a prime number.")) 
} 

+++ EDITに滞在しながら、あなたは低レベルのものをしたい場合は
私はCになります++（とRcpp）：ローランドにより示唆されるように変更さ