Skip to content

Instantly share code, notes, and snippets.

@zerokarmaleft

zerokarmaleft/necronomemoticon.clj

Created June 22, 2014 21:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zerokarmaleft/bbf1bd37ccdbb790b671 to your computer and use it in GitHub Desktop.
Save zerokarmaleft/bbf1bd37ccdbb790b671 to your computer and use it in GitHub Desktop.
Download ZIP
Nomnomnom
Raw
necronomemoticon.clj
(defn parse-necronomemoticon
[s]
(let [rdr (BufferedReader. (StringReader. s))
expr (->> (line-seq rdr) (map seq) first)]
(match [expr]
[([\( \; \, \; \)] :seq)] :evil
:else :failure)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment