Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (fn compr [n]
- (let [[f & r] n]
- (cond
- (empty? n) '()
- (= f (first r)) (compr r)
- :else (cons f (compr r)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement