Skip to content

Instantly share code, notes, and snippets.

@pyrtsa

pyrtsa/4clojure-96.clj

Created August 3, 2014 09:42
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 pyrtsa/c66630466396064cee24 to your computer and use it in GitHub Desktop.
Save pyrtsa/c66630466396064cee24 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
4clojure-96.clj
(fn [[_ l r]]
(letfn [(mirror?
[[lx ll lr :as l] [rx rl rr :as r]]
(or (not (or l r))
(and (= lx rx)
(and (mirror? ll rr)
(mirror? lr rl)))))]
(mirror? l r)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment