Naively balance a string.

gistfile1.clj

(defn str-b-balance
  "Naive bracket balance in the provided string."
  [s & {:keys [ls rs] :or {ls \[ rs \]}}]
  (let [bc (b-closers s)]
    (reduce (fn [st ch]
              (if (= ls ch) (str ch st) (str st ch)))
            s
            bc)))