skip to main | skip to sidebar

CayleSpandon

Notes on computer programming and networking.

Thursday, January 8, 2009

Erlang solution to Euler problem 1

I've decided to get serious about learning Erlang by solving one project Euler problem a day. Here's what I came up with for problem 1.


-module(euler1).

-export([solve/0, solve/1]).

solve() ->
solve(999).

solve(N) when is_integer(N) ->
if
N == 0 ->
0;
N rem 3 == 0 ->
N + solve(N-1);
N rem 5 == 0 ->
N + solve(N-1);
true ->
solve(N-1)
end.
Posted by CayleSpandon at 9:48 AM

No comments:

Post a Comment

Newer Post Home
Subscribe to: Post Comments (Atom)

Blog Archive

  • ▼  2009 (25)
    • ►  March (1)
    • ►  February (1)
    • ▼  January (23)
      • Erlang.org course exercises for spawning processes...
      • Erlang solutions for Euler problems 19, 24, 25 and...
      • Erlang solution for Euler problem 23
      • Erlang solution for Euler problem 21
      • Erlang solution for Euler problem 20
      • Erlang solution for Euler problem 18
      • Erlang solution for Euler problem 17
      • Erlang solution for Euler problem 16
      • Erlang solution for Euler problem 15
      • Erlang solution for Euler problem 14
      • Erlang solution for Euler problem 13
      • Erlang solution for Euler problem 12
      • Erlang solution for Euler problem 11
      • Erlang solution for Euler problem 10
      • Erlang solution for Euler problem 9
      • Erlang solution for Euler problem 8
      • Erlang solution for Euler problem 7
      • Erlang solution for Euler problem 6
      • Erlang solution for Euler problem 5
      • Erlang solution for Euler problem 4
      • Erlang solution to Euler problem 3
      • Erlang solution to Euler problem 2
      • Erlang solution to Euler problem 1