countchar.erl

-module(countchar).
-export([count_characters/1]).

count_characters(Str) ->
    count_characters(Str, #{}).

count_characters([], Result) ->
    Result;
count_characters([H|T], Result) ->
    case maps:is_key(H, Result) of
        true -> 
            %io:format("In True : ~p~n", [H]),
            {ok, Value} = maps:find(H, Result),
            NewResult = Result#{H :=  Value + 1};
        false -> 
            %io:format("In False : ~p~n", [H]),
            NewResult = maps:put(H, 1, Result)
    end,
    count_characters(T, NewResult).