Just another update

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

@@ -7,16 +7,16 @@
              ((< i len) (list-vector vec))
              ((inc i))
          (let ((j (random r len))
-               (temp (vecref vec i)))
-           (set (vecref vec i) (vecref vec j))
-           (set (vecref vec j) temp))))
+               (temp [vec i]))
+           (set [vec i] [vec j])
+           (set [vec j] temp))))
+
      (defun generate-1 (count)
-       (for ((i 0) chars) ((< i count) (cat-str (shuffle chars) "")) ((inc i))
-          (push #\[ chars)
-          (push #\] chars)))
+       (let ((bkt (repeat "[]" count)))
+         (cat-str (shuffle bkt))))
+
      (defun generate-list (num count)
-       (for ((i 0) list) ((< i num) list) ((inc i))
-         (push (generate-1 count) list))))
+       [[generate tf (op generate-1 count)] 0..num]))
 @(next :list @(generate-list 22 6))
 @(output)
 INPUT           MATCHED         REST