Factors of an integer: Difference between revisions
→{{header|Oforth}}
m (→optimized version: aligned a comment.) |
|||
Line 1,865:
let factors n =
List.filter (fun v -> (n mod v) = 0) (range n)</lang>
=={{header|Oforth}}==
<lang Oforth>Integer method: factors { self seq filter(#[ self swap rem 0 &== ]) }
120 factors println</lang>
{{out}}
<pre>
[1, 2, 3, 4, 5, 6, 8, 10, 12, 15, 20, 24, 30, 40, 60, 120]
</pre>
=={{header|Oz}}==
| |||