Project Euler - Problem 1 └ Project Euler

Problem 1

05 October 2001

If we list all the natural numbers below 10 that are multiples of 3or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.
Find the sum of all the multiples of 3 or 5 below 1000.

문제1.
1~1000까지의 숫자 중 3 또는 5의 배수들의 총 합을 구하라.


erlang code.
-module ( problem1 ).
-export ( [ calc / 0 ] ).

% 답 계산
calc() ->
        listsum( makelist() ).

% 1~1000 까지의 숫자 중 3 과 5의 배수로 구성된
% 리스트를 만든다.
makelist() ->
        [ N || N <- lists:seq( 1, 999 ),
                ( N rem 3 =:= 0 ) or ( N rem 5 =:= 0 ) ].

%% 리스트 항목의 합계
listsum( [] ) -> 0;
listsum( [H|T] ) ->
        H + listsum( T ).


Project Euler의 가장 쉬운(?) 1번 문제.

내가 짰지만 코드 좀 더러운듯..
분명 리스트 합계구하는건 라이브러리에 있었던것 같은데.

덧글

댓글 입력 영역


통계 위젯 (블랙)

01
9
53794

이 이글루를 링크한 사람 (블랙)

11