2011年2月24日木曜日

ErlangでProject Euler Program1 問題を解いてみる

Erlangの勉強として、Project Eulerの問題を解いてみようと考えた。
まずは問題1

Project Euler:Problem 1


ソース:

-module(program1).
-export([start/1]).

start( N ) -> sum( N - 1).

sum( 1 ) -> 1;
sum( M ) ->
 if
 ( M rem 3 ) =:= 0 -> M + sum(M-1);
 ( M rem 5 ) =:= 0 -> M + sum(M-1);
  true -> sum(M-1)
end.

0 件のコメント:

コメントを投稿