Anonymous user
Balanced brackets: Difference between revisions
→{{header|Mathematica}}
Line 1,577:
<lang mathematica>
(* Generate open/close events. *)
gen[n_] := gen[n_] := RandomSample[Table[{1, -1}, {n}] // Flatten]
(* Check balance. *)
|
Line 1,577:
<lang mathematica>
(* Generate open/close events. *)
gen[n_] := gen[n_] := RandomSample[Table[{1, -1}, {n}] // Flatten]
(* Check balance. *)
|