大佬！被你这么一说，我重新认真检查了一下自己的代码，请过目！
prime1 <- function(x){
j <- FALSE
for(i in 2:(x-1))
if(any(x%%i ==0)==F)
j <- TRUE
ifelse(j,"X is not a prime","X is a prime")
}
小弟调试过一下， 这样写虽然没错，但总感觉这段代码不够简洁，请斧正！
首先，求余数是用“%%”，其次，这代码逻辑上是错误的；最后，乱用变量，n是哪来的，应该是用x！
prime<-function(n){
lprime=T
for( i in 2:ceiling(sqrt(n))){
if(n %% i==0){
lprime=F
break
}
}
if(lprime){print(paste(n,"is a prime",sep=" "))}
else{print(paste(n,"is not a prime",sep=" "))}
}
扫码加好友，拉您进群
全部版块
我的主页
收藏
