September Morn Update

Task/Balanced-brackets/Clojure/balanced-brackets-2.clj

@@ -0,0 +1,11 @@
+(defn balanced? [s]
+  (empty?
+    (reduce
+      (fn [stack first]
+        (case first
+          \[ (conj stack \[)
+          \] (if (seq stack)
+               (pop stack)
+               (reduced [:UNDERFLOW]))))
+      '()
+      s)))

Task/Balanced-brackets/Clojure/balanced-brackets-3.clj

@@ -0,0 +1,5 @@
+(defn balanced? [s]
+  (let [opens-closes (->> s
+                          (map {\[ 1, \] -1})
+                          (reductions + 0))]
+    (and (not-any? neg? opens-closes) (zero? (last opens-closes)))))