histogram.erl

-module(histo).
-compile(export_all).
-define(WORDS,[ "a", "at", "red", "green", "dog"]).

parse_input(Input) ->
	lists:foldl(fun(Letter, D) -> dict:update(Letter, fun(N) -> N + 1 end, 1, D)
							end, dict:new(),
    [L || L <- Input]).

start_find(InputHisto) ->
	Found = [ lists:filter(fun(E) -> lists:member(E, Word) end, dict:fetch_keys(InputHisto)) || Word <- ?WORDS],
	[io:format("~p~n",[M]) || M <- lists:filter(fun(E) -> lists:member(E,Found) end, ?WORDS)].