Proper divisors: Difference between revisions
Content added Content deleted
ReeceGoding (talk | contribs) |
ReeceGoding (talk | contribs) m (→Filter solution: Missed treatment of 1 as a special case.) |
||
Line 4,318: | Line 4,318: | ||
divisors<-function(n) |
divisors<-function(n) |
||
{ |
{ |
||
if(n==1)(return(NULL))#This seems like bad code, but task 2 demands some output for n=1. |
|||
else(Filter(function(x) n %% x == 0, 1:(n%/%2))) |
|||
} |
} |
||
Line 4,344: | Line 4,345: | ||
> Vectorize(divisors)(1:10) |
> Vectorize(divisors)(1:10) |
||
[[1]] |
[[1]] |
||
NULL |
|||
[1] 1 |
|||
[[2]] |
[[2]] |