Clojure的sort和sort-by都承诺“保证稳定性:相等的元素不会被重新排序”。
ClojureScript中sort和sort-by的当前实现来自
9ee4dbf63d3968b70f29708aa03aace98cdcb624 作者:Stuart Halloway <[email protected]> 日期:2011年7月14日星期四 12:18:34 -0500
`
(defn sort
"返回coll中项的排序序列。Comp可以是
布尔值比较函数或值为- / 0 / +的比较器。
默认值为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可以是
布尔值比较函数或值为- / 0 / +的比较器。
默认值为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长达8年,也许文档字符串可以修改以反映这一事实。
仅供参考,google closure array文档: (链接: https://google.github.io/closure-library/api/goog.array.html)
注意,stableSort的文档字符串实际上并未提及稳定性,但排序函数中包含“此排序不保证稳定性”。