R语言素数检测函数致RStudio卡顿无响应问题排查

首先看你写的R函数代码：

prime <- function(number){
    if (number!=2){
        for (num in 1:number){
            while ((number%%num)==0){
                counter <- 0
                counter <- counter+1
                
            }
        }
        return((counter-2)==0)
    }else{
        FALSE
    }
}

核心问题：无限循环导致卡顿 #

你的代码里while ((number%%num)==0)是死循环。当number能被num整除时（比如num=1，任何number都满足），这个条件会一直成立——因为循环里没有改变number或num的值，while会一直重复执行counter <- 0; counter <- counter+1，永远跳不出循环，直接导致RStudio卡死。

其他逻辑错误 #

• counter未初始化：如果某个num不能整除number，while循环不会执行，counter变量根本没被定义，后续return((counter-2)==0)会直接报错。
• 素数判定逻辑颠倒：2是最小的素数，但你代码里直接返回FALSE，这是完全错误的。
• 计数逻辑无效：每次进入while循环都把counter重置为0再加1，就算跳出循环，counter的值也永远是1，根本无法统计能整除的次数。

修复后的代码示例 #

prime <- function(number) {
    # 小于2的数都不是素数
    if (number < 2) {
        return(FALSE)
    }
    # 2是素数
    if (number == 2) {
        return(TRUE)
    }
    # 偶数（除了2）直接排除
    if (number %% 2 == 0) {
        return(FALSE)
    }
    # 只遍历到sqrt(number)，大幅提升效率
    for (num in seq(3, sqrt(number), by = 2)) {
        if (number %% num == 0) {
            return(FALSE)
        }
    }
    return(TRUE)
}

修复说明 #

1. 移除了导致死循环的while语句，改用简单的if判断是否能整除
2. 修正了2的判定逻辑，正确返回TRUE
3. 增加了小于2的数、偶数的快速判断，减少不必要的计算
4. 遍历范围缩小到sqrt(number)，因为若number存在大于平方根的因数，必然对应一个小于平方根的因数，无需遍历全部数字

内容的提问来源于stack exchange，提问作者dijilijib