Skip to content

Instantly share code, notes, and snippets.

@kitofr

kitofr/gist:1031292

Created June 17, 2011 12:04
Show Gist options
  • Save kitofr/1031292 to your computer and use it in GitHub Desktop.
Save kitofr/1031292 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
#(loop [col % c ()]
(cond (empty? col) (reverse c)
(= (first col) (first c)) (recur (rest col) c)
:else (recur (rest col) (cons (first col) c))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment