得到一个不知道如何创建一个ISeq：clojure.lang.PersistentList $ 1

Question

我试图实现Land of Lisp's Dice of Doom game，我得到一个Don't know how to create ISeq from: clojure.lang.PersistentList$1。

它的出现叫我add-new-dice功能时：

(defn add-new-dice [board player spare-dice] 
    (letfn [(f [lst n] 
      (cond (empty? lst) nil 
        (zero? n) lst 
        :else (let [current-player (first (first lst)) 
           current-dice (first (rest (first lst)))] 
          (if (and (= current-player player) (< current-dice *max-dice*)) 
          (cons (list current-player (+ current-dice 1)) 
            (f (rest lst) (- n 1))) 
          (cons (first lst) (f (rest list) n))))))] 
    (f board spare-dice))) 

与此：

(add-new-dice '[(0 1) (1 3) (0 2) (1 1)] 0 2) 

我这样做主要是为了与CL码熟悉自己，并获得了一定的经验移植过来，以Clojure的。

如果有人可以给我一些建议，这将不胜感激。

Answer 1

在第二行到最后一行，您正在使用功能list而不是您的参数lst。 (f (rest list) n)应该是(f (rest lst) n)