Advertisement
Guest User

Untitled

a guest
Jan 12th, 2012
121
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (fn compr [n]
  2.   (let [[f & r] n]
  3.     (cond
  4.      (empty? n) '()
  5.      (= f (first r)) (compr r)
  6.      :else (cons f (compr r)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement