Erlang/OTP Forums

-module(amigo_secreto).
-export([sorteia/0]).

sorteia()->
   le_arquivo("nomes.txt").

le_arquivo(FileName)->
   {ok, Binary} = file:read_file(FileName),
   Lines = string:tokens(erlang:binary_to_list(Binary), "\r\n"),
   shuffle(Lines).
   
shuffle(List) -> shuffle(List, []).

shuffle([], [Head | Rest]) ->
   escolhe(Rest, Head);

shuffle(List, Acc) ->
   {Leading, [H | T]} = lists:split(random:uniform(length(List)) - 1, List),
   shuffle(Leading ++ T, [H | Acc]).
   
escolhe([Head | Rest], Escolhido)->
   tirou(Escolhido,Head),
   escolhe(Rest, Head);

escolhe([], ultimo)->
   ultimo.
   
tirou(fulano, siclano)->
   fulando,
   siclano.