Proper divisors: Difference between revisions
Content added Content deleted
(Added Wren) |
ReeceGoding (talk | contribs) (→Filter solution: Removed redundant brackets.) |
||
Line 4,318: | Line 4,318: | ||
properDivisors<-function(n) |
properDivisors<-function(n) |
||
{ |
{ |
||
#Returning NULL seems like bad code, but task 2 demands some output for n=1, which has no proper divisors. |
|||
if(n==1) NULL else(Filter(function(x) n %% x == 0, 1:(n%/%2))) |
|||
} |
} |
||