Rosetta Code

Aliquot sequence classifications: Difference between revisions

Page Discussion

Aliquot sequence classifications (view source)

Revision as of 11:09, 8 August 2015

50 bytes removed ,  8 years ago
m
→‎{{header|Oforth}}
Line 700:
=={{header|Oforth}}==
 
<lang oforth>Integer method: properDivs // ( n -- aList )
{
| sqrtn i l |
ListBuffer new dup add(1) ->l
2 self nsqrt dup ->sqrtntuck for: i [ self i mod ifFalse: [ l add(i) l add(self i / ) ] ]
sq self i== mod ifZeroifTrue: [ il overremoveLast add self i / over adddrop ]
l ]sort
self sqrtn sq == ifTrue: [ dup removeLast drop ]
sort
}
 
Franck
1,015

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/253339"