(defn shell-sort [xs] (let [l (count xs) max-h (loop [h 0] (let [t (+ 1 (* h 3))] (if (> t l) h (recur t))))] (loop [xt xs h max-h]
確定! 回上一頁