Proper divisors: Difference between revisions
m
→{{header|Oforth}}
Line 294:
<lang Oforth>Integer method: properDivs { seq(self 1 - ) filter(#[ self swap rem 0 == ]) }
10 seq apply(#[ dup print " : " print properDivs println ])
20000 seq map(#[ dup properDivs size swap Pair new ]) reduce(#maxValue) println</lang>▼
▲20000 seq map(#[ dup properDivs size swap Pair new ]) reduce(#maxValue) println</lang>
{{out}}
<pre>
| |||