插入排序使用Clojure的

Question

我就遇到了這個錯誤，當我嘗試以下評價的最後一行：「沒有消息[拋出該異常類顯示java.lang.NullPointerException]」

(defn my-insertion-sort [lst] 
    (loop [list lst result '()] 
    (if-not (seq? list) result 
      (recur (rest list) (my-insert (first list) result))))) 

(defn my-insert [n lst] 
    (cond (nil? lst) (list n) 
     (> (first lst) n) (conj lst n) 
     :else 
     (conj (my-insert n (rest lst)) (first lst)))) 

(my-insertion-sort '(2 1 3)) 

凡與「我 - 不順心插入排序「功能？

Answer 1

(defn my-insertion-sort [lst] 
    (loop [list lst result '()] 
    (if (empty? list) result 
     (recur (rest list) (my-insert (first list) result))))) 

(defn my-insert [n lst] 
    (cond 
    (empty? lst) (list n) 
    (> (first lst) n) (conj lst n) 
    :else (conj (my-insert n (rest lst)) (first lst))))