我从我写的分解非零整数的R代码中得到了一些奇怪的行为。
factors<-function(num) c(Filter(function(x) num%%x==0,(-num%/%2):num%/%2),num,-num)
我期望factors(-15)
会提供-15, -5, -3, -1, 1, 3, 5, 15
的一些排列。相反,我得到:
> factors(-15)
[1] 3 3 1 1 -1 -1 -3 -3 -5 -5 -15 15
除了被非常奇怪地命令(不是应该将其从-7校验为7之外?),它漏掉了5.我忽略了什么?
您错过了两个括号
factors <- function(num) c(-num, Filter(function(x) num%%x==0, (-num%/%2):(num%/%2)), num)
factors(-15)
# [1] 15 5 3 1 -1 -3 -5 -15
顺便说一下,在这种情况下,它从-8到7进行检查
(-15%/%2):(15%/%2)
# [1] -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7