在 Clojure 中递归查看地图以获取其值

Question

我正在尝试编写一个函数，该函数将递归地弹出一个映射，以便一次获取一个值。

以下是我到目前为止所得到的..

(defrecord Stoptest [&args])

(def test (Stoptest. [:c101 :main-office :a1]))

(defn stopPop [x]
 (peek (-> x :&args))
 (recur(peek(rest x))))

(stopPop test)

我收到一条错误消息：

clojure.lang.LazySeq cannot be cast to clojure.lang.IPersistentStack

是什么导致了这个问题？

干杯

Answer 1

rest 返回的不是向量，而是惰性序列。当您尝试peek on in 时出现错误：

(peek (seq [1 2 3])) ;; gives the same error

问题发生在这里是因为你在递归的每一步都有不同的类型对象。在顶部，您有 Stoptest 实例。接下来，你有一个以其他方式表现的惰性序列。

我认为这里没有任何理由将您的向量包装到类型化记录中。您始终可以轻松地对向量进行迭代。