4 lines
135 B
Text
4 lines
135 B
Text
rand[bias_, n_] := 1 - Unitize@RandomInteger[bias - 1, n]
|
|
|
|
unbiased[bias_, n_] :=
|
|
DeleteCases[rand[bias, {n, 2}], {a_, a_}][[All, 1]]
|