Switch to leveled_rand for compatibility

This commit is contained in:
Martin Sumner 2018-11-07 17:01:51 +00:00
parent 6f4f1b9560
commit 787b02e4d8

View file

@ -11,7 +11,7 @@ segments(Length) ->
lists:foldl(fun(I, Acc) -> <<Acc/binary, (I - 1):16/integer>> end,
<<>>,
AllSegs),
StartPos = random:uniform(length(AllSegs) - Length),
StartPos = leveled_rand:uniform(length(AllSegs) - Length),
{<<AllSegsBin/binary, AllSegsBin/binary,
AllSegsBin/binary, AllSegsBin/binary>>,
lists:sublist(AllSegs, StartPos, Length)}.