除数函数

Question

我需要一个函数，该函数可以将数字除以1，并将该数字除以除数。

我在代码中没有发现任何错误

从理论上讲，这个具体示例的答案必须为20分的42分，但我得到了其他答案。

Answer 1

此代码应该更快；它还可以评估除数，并在一个函数中输出除数的总和：

sum_divisors <- function(dividend){
   # create a vector from 1 until half of the dividend
   x <- 1:floor(dividend/2)
   # capture the divisors
   divisors_vector <- x[dividend%%x == 0]
   # sum the divisors we found, and the dividend itself
   divisors_sum <- sum(divisors_vector) + dividend
   return(divisors_sum)
}