Balanced brackets: Difference between revisions
Content deleted Content added
→{{header|TXR}}: shuffle has been an intrinsic function for quite a while. |
|||
Line 5,280: | Line 5,280: | ||
<lang txr>@(define paren)@(maybe)[@(coll)@(paren)@(until)]@(end)]@(end)@(end) |
<lang txr>@(define paren)@(maybe)[@(coll)@(paren)@(until)]@(end)]@(end)@(end) |
||
@(do (defvar r (make-random-state nil)) |
@(do (defvar r (make-random-state nil)) |
||
(defun shuffle (list) |
|||
(for* ((vec (vector-list list)) |
|||
(len (length vec)) |
|||
(i 0)) |
|||
((< i len) (list-vector vec)) |
|||
((inc i)) |
|||
(let ((j (random r len)) |
|||
(temp [vec i])) |
|||
(set [vec i] [vec j]) |
|||
(set [vec j] temp)))) |
|||
(defun generate-1 (count) |
(defun generate-1 (count) |