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