主要的問題在這裏(一旦我們改變"x"
到x
)是concat
返回lazy-seq
,和懶seqs是無效的參數傳遞給pop
。
user=> (defn pop-and-push [coll x] (concat (pop coll) [x]))
#'user/pop-and-push
user=> (pop-and-push [1 2 3] 4)
(1 2 4)
user=> (pop-and-push *1 5)
ClassCastException clojure.lang.LazySeq cannot be cast to clojure.lang.IPersistentStack clojure.lang.RT.pop (RT.java:730)
我的天真偏好是使用一個向量。這個功能很容易用subvec
實現。
user=> (defn pop-and-push [v x] (conj (subvec (vec v) 1) x))
#'user/pop-and-push
user=> (pop-and-push [1 2 3] 4)
[2 3 4]
user=> (pop-and-push *1 5)
[3 4 5]
,你可以看到,這個版本可以在自己的返回值,實際操作
正如評論所說,PersistentQueue是針對這種情況作出:
user=> (defn pop-and-push [v x] (conj (pop v) x))
#'user/pop-and-push
user=> (pop-and-push (into clojure.lang.PersistentQueue/EMPTY [1 2 3]) 4)
#object[clojure.lang.PersistentQueue 0x50313382 "[email protected]"]
user=> (into [] *1)
[2 3 4]
user=> (pop-and-push *2 5)
#object[clojure.lang.PersistentQueue 0x4bd31064 "[email protected]"]
user=> (into [] *1)
[3 4 5]
的PersistentQueue數據結構雖然在某些方面使用起來不方便,但實際上已經爲此使用進行了優化。
描述更清晰的方式''()''對比(範圍n)'的問題是,pop'的'這種用法適用於名單,但沒有其他集合類型(有各種不正確的行爲的lazy- seqs,向量,集合,數組,字符串等等,從明確的錯誤到剛剛得到錯誤的輸出而沒有檢測到錯誤)。 – noisesmith