Proper divisors: Difference between revisions
Content added Content deleted
Line 294: | Line 294: | ||
<lang Oforth>Integer method: properDivs { seq(self 1 - ) filter(#[ self swap rem 0 == ]) } |
<lang Oforth>Integer method: properDivs { seq(self 1 - ) filter(#[ self swap rem 0 == ]) } |
||
10 seq apply(#[ dup print " : " print properDivs println ]) |
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> |
||