Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (X13/Arch) Better disassembler d5f0c76 2 years ago 948 Commits
nujel / benchmark / euler1 / erlang.erl
Raw
application/octet-stream • 340 B • 16 lines 
#!/usr/bin/env escript
-mode(compile).

forLoop(Ret,0) -> Ret;
forLoop(Ret,I) ->
    if (I rem 3) == 0 ->
            forLoop(Ret + I, I - 1);
       (I rem 5) == 0 ->
            forLoop(Ret + I, I - 1);
       true ->
            forLoop(Ret, I - 1)
    end.

main([]) ->
    io:format("The sum is: ~w~n",[forLoop(0,10000000-1)]),
    0.