Perfect numbers: Difference between revisions
→{{header|Oforth}}
Line 1,133:
let perf n = n = List.fold_left (+) 0 (List.filter (fun i -> n mod i = 0) (1 -- (n-1)))</lang>
=={{header|Oforth}}==
<lang Oforth>func: isPerfect(n) { | i | 0 n 2 / loop: i [ n i rem ifZero: [ i + ] ] n == } </lang>
| |||