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