Data commit

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

@@ -0,0 +1,14 @@
+(defn gen-brackets [n]
+  (->> (concat (repeat n \[) (repeat n \]))
+       shuffle
+       (apply str ,)))
+
+(defn balanced? [s]
+  (loop [[first & coll] (seq s)
+	 stack '()]
+    (if first
+      (if (= first \[)
+	(recur coll (conj stack \[))
+	(when (= (peek stack) \[)
+	  (recur coll (pop stack))))
+      (zero? (count stack)))))

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)))))