4clojure 题解 Compress a Sequence

去除字符串中连续重复的部分

Write a function which removes consecutive duplicates from a sequence.

	(= (apply str (__ "Leeeeeerrroyyy")) "Leroy")
	(= (__ [1 1 2 3 3 2 2 3]) '(1 2 3 2 3))
	(= (__ [[1 2] [1 2] [3 4] [1 2]]) '([1 2] [3 4] [1 2]))

这个最好利用clojure特有的函数来做

(partition-by identity [1 222 33 22 33])

=> ((1) (222) (33) (22) (33))

identity 原样返回

（partition-by  f cool） 把cool经过f变换然后把返回的序列中连续相同的部分分割

最后的答案

#(->>
   (partition-by identity %)
   (map first)
   )