Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/77.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Java 在R编程中努力寻找下一个素数_Java_R - Fatal编程技术网

Java 在R编程中努力寻找下一个素数

Java 在R编程中努力寻找下一个素数,java,r,Java,R,我是R编程的新手,我正在努力寻找下一个给定x的素数。我在Java中尝试过这种逻辑,它是有效的。所以我真正做的是将一些Java代码翻译成R。这是我的Java版本 public static int nextPrime(int n) { int i,j; for( i= n+1;;i++) { for(j=2;j<i;j++) { if(i % j == 0) break; }

我是R编程的新手,我正在努力寻找下一个给定x的素数。我在Java中尝试过这种逻辑,它是有效的。所以我真正做的是将一些Java代码翻译成R。这是我的Java版本

public static int nextPrime(int n) {
    int i,j;
    for( i= n+1;;i++) {
        for(j=2;j<i;j++) {
            if(i % j == 0)
                break;
            }
            if(j == i) {
            // System.out.println(i);
                break;
            }
        }
        return i;
    }
publicstaticintnexttime(intn){
int i,j;
对于(i=n+1;;i++){

对于遵循代码的(j=2;j,两者不相同

替换

for(j in 2 : (i-1)) 


遵循您的代码,这两种代码是不同的

替换

for(j in 2 : (i-1)) 


我不知道Java,但这里有一个函数——while循环——它提供了您想要的东西

f <- function(x){
  # @IsmailMüller
  temp <- x+1
  test <- 2:x

  # while temp is divisible by at least one precedent value (not prime)
  while( any( (temp %% test) == 0 ) ){
    # increase the value of temp by 1
    temp <- temp+1
  }
  temp
}
f(11)

f我不了解Java,但这里有一个函数-while-loop-可以满足您的需要

f <- function(x){
  # @IsmailMüller
  temp <- x+1
  test <- 2:x

  # while temp is divisible by at least one precedent value (not prime)
  while( any( (temp %% test) == 0 ) ){
    # increase the value of temp by 1
    temp <- temp+1
  }
  temp
}
f(11)

f您遇到了什么错误?或者您遇到了什么问题?您遇到了什么错误?或者您遇到了什么问题?嗨,伊斯梅尔。我希望f(3)或f(5)或..f(任意素数)本身返回该数字。您如何处理现有代码..嗨,伊斯梅尔。我希望f(3)或f(5)或..f(任意素数)返回那个数字本身。你如何处理这个现有的代码。。