R语言：编写一个函数，该函数用来判断输入的正整数是否为素数（麻烦各位帮我看一下问题所在）

Question

f=function(n){
  if(all(n%%(2:(n-1))!=0)){z=1
                                       }else{z=0}
                    }
z

 

Answer 1

你这个写的有点问题，可以参考这个

sushu <- function(x){

ifelse(0 %in% c(x %% c(2:ceiling(sqrt(x)))),"FALSE","TRUE")

}

sushu(17)