gistfile1.clj

(defn redux
  [x y]
  (cond
    (false? x) false
    (neg? x) false
    (= y "(") (inc x)
    (= y ")") (dec x)
    :else x))

(defn has-matched-parens?
  [s]
  (let [tokens (clojure.string/split s #"\s+")
        result (reduce redux 0 tokens)]
    (if (false? result)
      false
      (zero? result))))