Project Euler‎ > ‎

Problem 1 - Erlanglösning

posted Aug 27, 2009, 1:16 AM by Peter Henell
 lists:foldl(fun(X, S) -> X + S end, 0, [X || X <- lists:seq(1, 1000), (X rem 5 =:= 0) and (X rem 3 =:= 0)]). 
Comments