% Consultar documentação do módulo random em:
%
http://www.erlang.org/doc/doc-5.5.4/lib/stdlib-1.14.4/doc/html/index.html
gera_aleatorios() ->
{X,Y,Z} = now(),
random:seed(X,Y,Z),
gera(10).
gera(0) ->
ok;
gera(N) ->
Valor = valor(random:uniform(100)),
io:format("Valor : ~w~n",[Valor]),
gera(N-1).
valor(V) when V > 80 -> 'erro';
valor(V) -> V.