mirror of
https://github.com/correl/euler.git
synced 2024-11-24 03:00:08 +00:00
Starting an erlang branch, starting with #001
This commit is contained in:
commit
4d2e456ece
1 changed files with 27 additions and 0 deletions
27
e001.erl
Normal file
27
e001.erl
Normal file
|
@ -0,0 +1,27 @@
|
||||||
|
% Add all the natural numbers below one thousand that are multiples of 3 or 5.
|
||||||
|
|
||||||
|
% If we list all the natural numbers below 10 that are multiples of 3 or 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.
|
||||||
|
|
||||||
|
-module(e001).
|
||||||
|
-export([
|
||||||
|
main/1
|
||||||
|
]).
|
||||||
|
|
||||||
|
sum(3) ->
|
||||||
|
0;
|
||||||
|
sum(Max) ->
|
||||||
|
N = Max - 1,
|
||||||
|
if
|
||||||
|
N rem 3 == 0 ->
|
||||||
|
A = N;
|
||||||
|
N rem 5 == 0 ->
|
||||||
|
A = N;
|
||||||
|
true ->
|
||||||
|
A = 0
|
||||||
|
end,
|
||||||
|
sum(N) + A.
|
||||||
|
|
||||||
|
main(_) ->
|
||||||
|
io:format("Sum of < 10: ~w~n", [sum(10)]),
|
||||||
|
io:format("Sum of < 1000: ~w~n", [sum(1000)]).
|
Loading…
Reference in a new issue