挿入ソートのClojure

Question

を使用して、私はこのエラーに遭遇しました挿入ソート "関数？

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))))