Skip to content

Instantly share code, notes, and snippets.

@defndaines

defndaines/zero-one.clj

Created October 28, 2015 11:46
Show Gist options
  • Save defndaines/a93b7e5d18d25171f2c4 to your computer and use it in GitHub Desktop.
Save defndaines/a93b7e5d18d25171f2c4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
zero-one.clj
(defn combine [acc e]
(if (= e \?)
(for [l acc n "01"] (conj l n))
(for [l acc] (conj l e))))
(defn translate [phrase]
(map #(apply str %)
(reduce combine [[]] phrase)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment