Proper divisors: Difference between revisions

<lang r>#Task 1

#Has no input error checking.

{

else(Filter(function(x) n %% x == 0, 1:(n%/%2)))

}

#Task 2

#The output could be put in to a cleaner form than a list, but this is the idiomatic way.

 

#Task 3

mostProperDivisors<-function(N)

{

numberWithMostDivisors<-which.max(lengths(divisorList))

return(paste0("The number with the most proper divisors between 1 and ",N,

{{Output}}

<pre>#Task 2

[[1]]

NULL