Proper divisors: Difference between revisions
Content added Content deleted
Line 293: | Line 293: | ||
=={{header|Oforth}}== |
=={{header|Oforth}}== |
||
<lang Oforth>Integer method: properDivs { seq(self |
<lang Oforth>Integer method: properDivs { seq(self 2 / ) filter(#[ self swap rem 0 == ]) } |
||
10 seq apply(#[ dup print " : " print properDivs println ]) |
10 seq apply(#[ dup print " : " print properDivs println ]) |