Life is wonder-ful

어제 erlangstudy 메일링리스트에 파스칼 삼각형 구현이 올라왔다. 요즘 프로그래밍을 너무 안해서 늦은 시각에도 불구하고 한 번 풀어봤다.

첫 번째 구현.

next(S) ->
    next(S, [1]).
next([_], Acc) ->
    [1|Acc];
next([A,B|L], Acc) ->
    next([B|L], [A+B|Acc]).

triangle(N) ->
    triangle(N - 1, [[1]]).
triangle(0, Acc) ->
    lists:reverse(Acc);
triangle(N, [S|L]) ->
    triangle(N - 1, [next(S),S|L]).

두 번째 구현. lists:foldl을 이용해서 코드를 더 줄였다. 함수 선언할 때 이름 중복 제거.

next(S) ->
    lists:foldl(fun(A,[B|L]) ->
            [A,A+B|L]
        end, [0], S).

triangle(N) ->
    lists:reverse(lists:foldl(fun(_,[S|_]=Acc) ->
                       [next(S)|Acc]
                   end, [[1]], lists:seq(1, N)))

저번의 조합, 순열 구현에서도 느꼈지만 수학 개념들을 프로그램으로 짜보면서 성질을 조금 더 이해할 수 있게 되었다. 꼭 실용적인 프로그램이 아니더라도 중고등학교 때 배웠는데 몰랐던 개념들을 알게 되니 기쁘다 ^^