• + 0 comments

    Erlang solution:

    main() ->
        L = fun F(Acc) -> case io:fread("", "~d") of eof -> Acc; {ok, [N]} -> F(Acc+1) end end,
        io:fwrite("~p", [L(0)]).