Anonymous user
Perfect numbers: Difference between revisions
added haskell
m (Fixed up LL method formula) |
(added haskell) |
||
Line 59:
END IF
END FUNCTION</qbasic>
=={{header|Haskell}}==
perf n = n == sum [i | i <- [1..n-1], n `mod` i == 0]
=={{header|J}}==
| |||