Rosetta Code

Proper divisors: Difference between revisions

Page Discussion

Proper divisors (view source)

Revision as of 16:15, 20 July 2020

12 bytes added ,  3 years ago
→‎Filter solution: Removed redundant brackets.
(Added Wren)
(→‎Filter solution: Removed redundant brackets.)
Line 4,318:
properDivisors<-function(n)
{
if(n==1)(NULL) #ThisReturning 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)))
}
 
ReeceGoding
331

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/252585"