gistfile1.clj

(defn ignore-comments [s]
  (-> (reduce (fn [[state output] c]
                (case state
                  :normal (if (= c \/)
                            [:after-slash output]
                            [:normal (str output c)])
                  :after-slash (case c
                                 \* [:comment output]
                                 \/ [:after-slash (str output "/")]
                                 [:normal (str output "/" c) nil])
                  :comment (if (= c \*)
                             [:after-star output]
                             [:comment output])
                  :after-star (case c
                                \/ [:normal output]
                                \* [:after-star output]
                                [:comment output])))
              [:normal "" nil]
              s)
      (second)))