Quicksort. Clojure. (defn qsort [L]. (if (empty? L). '(). (let [[pivot & L2] L]. (lazy-cat (qsort (for [y L2 :when (< y pivot)] y)).
確定! 回上一頁