Erlang 공부 - 넥슨 입사 시험 문제 1 번 풀이

지난 번에 Common Lisp으로 풀어 본 넥슨 입사 시험 문제 1 번에 대해서 이번에는 Erlang으로 다시 한번 시도해봤습니다.

상세한 문제 내용은 이전 글을 참고해주시고, 간단히 요약을 하면 다음과 같습니다.

1부터 5000 사이의 Self Number들의 합을 구하시오.

풀이 내용은 다음과 같습니다.

-module(selfnum).
-export([sum_of_digits/1,
         generate/1,
         get_self_numbers/2,
         get_sum_of_self_numbers/2]).
 
sum_of_digits(N) ->
    Digits = integer_to_list(N),
    sum_of_digits1(Digits).
 
sum_of_digits1(Digits) ->
    Nums = lists:map(fun(D) ->
                             D - $0 end,
                     Digits),
    lists:sum(Nums).
 
generate(N) when N > 0 ->
    N + sum_of_digits(N).
 
get_self_numbers(M, N) when M =< N ->
    Range_Nums = lists:seq(M, N),
    Gen_Nums = lists:map(fun generate/1, Range_Nums),
    lists:subtract(Range_Nums, Gen_Nums).
 
get_sum_of_self_numbers(M, N) when M =< N ->
    Self_Nums = get_self_numbers(M, N),
    lists:sum(Self_Nums).

sum_of_digits 메서드(method)를 다르게 구현해봤습니다.

-module(selfnum).
-export([sum_of_digits/1,
         generate/1,
         get_self_numbers/2,
         get_sum_of_self_numbers/2]).
 
sum_of_digits(N) ->
    Digits = integer_to_list(N),
    sum_of_digits(Digits, 0).
 
%%---------------------------------------
%% Tail-recursion 방식으로 구현
sum_of_digits([D|Rest], Acc) ->
    I = D - $0,
    sum_of_digits(Rest, Acc + I);
sum_of_digits([], Acc) ->
    Acc.
%%---------------------------------------

generate(N) when N > 0 ->
    N + sum_of_digits(N).
 
get_self_numbers(M, N) when M =< N ->
    Range_Nums = lists:seq(M, N),
    Gen_Nums = lists:map(fun generate/1, Range_Nums),
    lists:subtract(Range_Nums, Gen_Nums).
 
get_sum_of_self_numbers(M, N) when M =< N ->
    Self_Nums = get_self_numbers(M, N),
    lists:sum(Self_Nums).

compile하고 각 메서드에 대해 실행한 결과는 다음과 같습니다.

[그림 1] 실행 결과

Erlang도 예전부터 관심은 있었는데, 계속 공부를 미루다 최근에 와서야 마음 먹고 집중해보고 있습니다. 오랫동안 C/C++, Java 관련 일만 해와서인지 패러다임이 다른 프로그래밍 언어에 익숙해지는 것이 쉽지 않습니다. 하지만, 재미있습니다. 모르고 있던 새로운 것을 알게 된다는 것은 그 자체만으로도 충분히 기쁨입니다. :)