Clojure sort 和 sort-by 都承诺“保证稳定:相等的元素不重新排序。”
ClojureScript 中的 sort 和 sort-by 的当前实现来自
9ee4dbf63d3968b70f29708aa03aace98cdcb624 作者:Stuart Halloway <[email protected]> 日期:2011 年 7 月 14 日 周四 12:18:34 -0500
`
(defn sort
"返回 coll 中项的排序序列。比较函数可以是布尔值比较函数,也可以是值比较函数。
比较器默认为 compare。
如果提供了 [coll]
(sort compare coll))
([comp coll]
(if (seq coll)
(defn sort-by
(let [a (to-array coll)]
;; matching Clojure's stable sort, though docs don't promise it
(garray/stableSort a (fn->comparator comp))
(seq a))
())))
"返回 coll 中项的排序序列,排序顺序由 (keyfn item) 决定。
比较函数可以是 [keyfn coll]
(sort-by keyfn compare coll))
比较器默认为 compare。
如果提供了 [coll]
([keyfn comp coll]
此实现显然已经调用了 google 的 stableSort 有 8 年了,可能文档字符串可以修改以反映这一点。
参考资料,google closure array 文档:(链接:https://google.github.io/closure-library/api/goog.array.html)
(sort (fn [x y] ((fn->comparator comp) (keyfn x) (keyfn y))) coll)))
`
注意,stableSort 的文档字符串实际上没有提到稳定性,但排序函数包含“此排序不一定保证稳定。”
请求
jira