week2_perfect_number.erl

-module(week2_perfect_number).
-export([perfectNumber/1]).
-author("Pradeep Pillai").

perfectNumber(N) ->

    A = doPerfect(N, N div 2, []),
    N == lists:sum(A).

doPerfect(_, 0, Result) ->
    Result;
doPerfect(N, Num, Result) ->
    if 
        N rem Num == 0 ->
            doPerfect(N, Num - 1, lists:append(Result, [Num]));
        true ->
            doPerfect(N, Num - 1, Result)
    end.