相关疑难解决方法(0)

我做了这个函数来删除连续的重复项,但我想知道是否有更好或更短的方式来表达它使用distinct或类似的东西.

(defn duplicates
  [s]
  (reduce 
    #(if-not (= (last %1) %2) 
      (conj %1 %2) %1) 
    [] s))