Perfect numbers: Difference between revisions

Content deleted Content added
m Fixed up LL method formula
added haskell
Line 59: Line 59:
END IF
END IF
END FUNCTION</qbasic>
END FUNCTION</qbasic>

=={{header|Haskell}}==
perf n = n == sum [i | i <- [1..n-1], n `mod` i == 0]


=={{header|J}}==
=={{header|J}}==