2 lines
81 B
Erlang
2 lines
81 B
Erlang
is_perfect(X) ->
|
|
X == lists:sum([N || N <- lists:seq(1,X-1), X rem N == 0]).
|
is_perfect(X) ->
|
|
X == lists:sum([N || N <- lists:seq(1,X-1), X rem N == 0]).
|