Anonymous user
Perfect numbers: Difference between revisions
Forth
(added haskell) |
(Forth) |
||
Line 59:
END IF
END FUNCTION</qbasic>
=={{header|Forth}}==
: perfect? ( n -- ? )
1
over 2/ 1+ 2 ?do
over i mod 0= if i + then
loop
= ;
=={{header|Haskell}}==
| |||