Proper divisors: Difference between revisions
m
→{{header|Oforth}}: Replace rem by mod
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
10 seq apply(#[ dup print " : " print properDivs println ])
|