Clojure:连续重复项的数量

Question

我需要一个函数来计算序列中连续相等条目的数量。例如，(连续的“abcdefg”)应返回0，而(连续的“aabcdddefg”)应返回3。

我写的方式是否惯用或者可以改进吗？

(defn consecutive [p]
  (second (reduce
            #(vector %2
                     (if (= (first %1) %2)
                       (inc (second %1))
                       (second %1)))
            [nil 0]
            p)))

Answer 1

我认为(连续的“abcdefg”)应该返回1，而不是0。

这是实现此目的的简单实现:

(defn consecutive [s] 
  (apply max (map count (partition-by identity s))))