Anonymous user
Perfect numbers: Difference between revisions
→{{header|Erlang}}
Line 551:
return sum <=> x
}</lang>
=={{header|Elixir}}==
<lang elixir>def is_perfect(x) do
[1 | lc x inlist :lists.seq(2, div(n, 2)), rem(n, x) == 0, do: x] |> :lists.sum() == n
end
</lang>
=={{header|Erlang}}==
<lang erlang>is_perfect(X) ->
X == lists:sum([N || N <- lists:seq(1,X-1), X rem N == 0]).</lang>
=={{header|F_Sharp|F#}}==
| |||