Perfect numbers: Difference between revisions
Content added Content deleted
m (→{{header|Oforth}}: Replace rem by mod) |
|||
Line 1,158: | Line 1,158: | ||
=={{header|Oforth}}== |
=={{header|Oforth}}== |
||
<lang Oforth> |
<lang Oforth>: isPerfect(n) { | i | 0 n 2 / loop: i [ n i mod ifZero: [ i + ] ] n == } </lang> |
||
{{out}} |
{{out}} |