We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. Prepare
  2. Functional Programming
  3. Introduction
  4. Sum of Odd Elements
  5. Discussions

Sum of Odd Elements

  • Pannag
     + 0 comments

    Erlang solution:

    -module(solution).
-export([main/0]).

read(Su) ->
    case io:fread("", "~d") of
        eof -> io:format("~p~n",[Su]);
        {ok, [N]} -> if (N rem 2=/=0)-> read(Su+N);
                         (N rem 2 =:=0)-> read(Su)
            end
    end.

main() ->
    read(0).