2016 Update

Task/Balanced-brackets/TXR/balanced-brackets.txr

@@ -1,15 +1,5 @@
 @(define paren)@(maybe)[@(coll)@(paren)@(until)]@(end)]@(end)@(end)
 @(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)
        (let ((bkt (repeat "[]" count)))