my first erlang programming
분류없음 2009/02/28 22:26-module(euler1). -export([sum/3]). sum(M,M,H) -> H; sum(M,I,H) when I rem 3 =:= 0 ; I rem 5 =:= 0 -> sum(M,I+1,H+I); sum(M,I,H) -> sum(M,I+1,H).
projecteuler.net 의 첫번째 문제: 1에서 1000까지의 숫자중에서 3 또는 5 의 배수들의 합은 얼마인가?
> sum(1000,1,0).
233168
