Skip to content

Instantly share code, notes, and snippets.

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 jneira/997967 to your computer and use it in GitHub Desktop.
Save jneira/997967 to your computer and use it in GitHub Desktop.
;; jneira's solution to Beauty is Symmetry
;; https://4clojure.com/problem/96
(fn s [[_ [x l r]
[y i d]]]
(and (= x y)
(or (= nil l i)
(and
(s [_ l d])
(s [_ r i])))))
;; amalloy's solution to Beauty is Symmetry
;; https://4clojure.com/problem/96
#(= %
((fn flip [[v l r :as n]]
(when n
[v (flip r) (flip l)]))
%))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment