13486 fix zone shuffle 1.3.x

src/mem3.erl

@@ -201,19 +201,10 @@ nodes_in_zone(Nodes, Zone) ->
     [Node || Node <- Nodes, Zone == mem3:node_info(Node, <<"zone">>)].
 
 shuffle(List) ->
-    %% Determine the log n portion then randomize the list.
-    randomize(round(math:log(length(List)) + 0.5), List).
-
-randomize(1, List) ->
-    randomize(List);
-randomize(T, List) ->
-    lists:foldl(fun(_E, Acc) -> randomize(Acc) end,
-                randomize(List), lists:seq(1, (T - 1))).
-
-randomize(List) ->
-    D = lists:map(fun(A) -> {random:uniform(), A} end, List),
-    {_, D1} = lists:unzip(lists:keysort(1, D)),
-    D1.
+    List1 = [{crypto:rand_uniform(1, 1000), Item} || Item <- List],
+    List2 = lists:sort(List1),
+    {_, Result} = lists:unzip(List2),
+    Result.
 
 apportion(Shares, Ways) ->
     apportion(Shares, lists:duplicate(Ways, 0), Shares).