Balanced brackets: Difference between revisions
Content added Content deleted
| Line 1,577: | Line 1,577: | ||
<lang mathematica> |
<lang mathematica> |
||
(* Generate open/close events. *) |
(* Generate open/close events. *) |
||
gen[n_] := gen[n_] := RandomSample[Table[{1, -1}, {n}] // Flatten] |
|||
gen[n_] := |
|||
EvenQ /@ RandomSample[Range[2 n]] /. {True -> 1, False -> -1} |
|||
(* Check balance. *) |
(* Check balance. *) |
||