Better(?) random function for shuffle

erlcom · Feb 14, 2012 · 78f9c83 · 78f9c83
1 parent fe79b4e
commit 78f9c83
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/src/deck.erl b/src/deck.erl
@@ -167,10 +167,7 @@ internal_shuffle() ->
     #state{deck=ShuffledDecks,cards_left=SplitNr}.
 
 
-random_list(List) ->                                          
+random_list(List) ->
    random:seed(now()),
-   {NewList, _} = lists:foldl( fun(_El, {Acc,Rest}) ->          
-       RandomEl = lists:nth( random:uniform(length(Rest)), Rest),
-       {[RandomEl|Acc], lists:delete(RandomEl, Rest)}            
-   end, {[],List}, List),                                        
+   NewList = [X||{_,X} <- lists:sort([ {random:uniform(), N} || N <- List])],
    NewList.