能否将分组进行通用化？

Question

如果group-by允许用户控制聚合集合的类型并在聚合之前操作值，那就很好了。根据一个键对映射集合进行分组可能是常见场景，也许根据另一个键进行数值聚合。

group-by可以如此通用化

(defn group-by
  "Returns a map of the elements of coll keyed by the result of
  f on each element. The value at each key will be a vector of the
  corresponding elements, in the order they appeared in coll."
  {:added "1.2"
   :static true}
  ([kf coll]
   (group-by kf [] coll))
  ([kf init coll]
   (group-by kf identity init coll))
  ([kf vf init coll]
   (group-by kf vf conj init coll))
  ([kf vf rf init coll]
   (persistent!
    (reduce
     (fn [ret x]
       (let [k (kf x)]
         (assoc! ret k (rf (get ret k init) (vf x)))))
     (transient {}) coll))))

Answer 1

我非常喜欢使用xforms对group-by进行分解

(defn my-group-by [kfn coll]
  (x/into {}
   (x/by-key
    kfn
    (x/into []))
   coll))

1. 分组：x/by-key与kfn一起负责分离值流
2. 内部聚合：接受一个变换器，用于在组内聚合值，(x/into [])与核心实现匹配
3. 外部聚合：返回一个变换器，调用者可以决定如何进行外部聚合，(x/into {} ,,, coll)与核心实现匹配

我希望核心（包括group-by）的改进方向是支持可变换的过程。

Comments

这样做并没有错，但与泛化现有实现相比，xforms需要相对较大的更改，仅仅是将每个值都视为参数。