Proper divisors: Difference between revisions

Line 293:
=={{header|Oforth}}==
 
<lang Oforth>Integer method: properDivs { seq(self 12 -/ ) filter(#[ self swap rem 0 == ]) }
 
10 seq apply(#[ dup print " : " print properDivs println ])
1,015

edits