为什么80%的码农都做不了架构师?>>>
(= (apply str (__ "Leeeeeerrroyyy")) "Leroy")
(= (__ [1 1 2 3 3 2 2 3]) '(1 2 3 2 3))
#(map first (partition-by identity %))
转:https://my.oschina.net/diqye/blog/522271