82940 Laurent Petit ;; file: challenge.clj ;; file: challenge.clj ;; invoke from command line: ;; java -cp clojure.jar /path/to/challenge.clj “()” “((([[]])))” … … (ns challenge) (def push conj) (def closing-counterpart { \( \), \[ \] }) (defn matching-pair? [left right] (= right (closing-counterpart left))) (defn consume-one [stack c] (if (matching-pair? (peek stack) c) (pop stack) (push stack c))) (defn balanced? [s] (empty? (reduce consume-one [] s))) (defn main [] (apply print (map balanced? *command-line-args*))) (when *command-line-args* (main)) 3455597910 None Basic Lisp TRUE