Proper divisors: Difference between revisions

Content added Content deleted
No edit summary
m (→‎{{header|Oforth}}: Replace rem by mod)
Line 734:
=={{header|Oforth}}==
 
<lang Oforth>Integer method: properDivs { seq(self 2 / ) filter(#[ self swap remmod 0 == ]) }
 
10 seq apply(#[ dup print " : " print properDivs println ])
Retrieved from "https://rosettacode.org/wiki/Proper_divisors"