2 lines
61 B
Haskell
2 lines
61 B
Haskell
perfect n =
|
|
n == sum [i | i <- [1..n-1], n `mod` i == 0]
|
perfect n =
|
|
n == sum [i | i <- [1..n-1], n `mod` i == 0]
|