一个关于control flow的简单R语言问题，小白求教！

求问这个问题要如何编写R commands“Write a function that tests if a positive integer n can be written as sum of two squared integers, i. e. n = i2 +j2 with i; j 2 N>0. Test your function for the integer n = 100."
求大神解答，要交作业啦qwq 急 在线等！

with i; j 2 N>0  什么意思？

从1试到sqrt(n)吧

给你判断的函数，自己体会一下吧：
当看到下面命令时候，是因为R里的sqrt计算方式是近似的。所以可能出现无限约等于0的情况。
sapply(vec,function(x) x-as.integer(x))<0.000000001

1. testNumber <-
   
2. function(N){
   
3. # N is the test number
   
4. #N=25
   
5. #N=27
   
6.     j=floor(sqrt(N-1))
   
7.     vec <- sapply(1:j,function(x) sqrt(N-x*x))
   
8.     index <- sapply(vec,function(x) x-as.integer(x))<0.000000001
   
9.     if(sum(index)==0)   
   
10.         {print("We cannot find the right i and j")
    
11.     }else {
    
12.         newj <- (1:j)[index]
    
13.         print(newj)
    
14.     }  
    
15. }
    
16. testNumber(100)

复制代码