Question

我想迭代原子中的值以创建新集合（但不更新atom）。我有下一个原子的定义： let [st (atom {})]现在我想这样做：

(-> (seq (keys @st))
    (map (fn [key] [key (get @st key)]))))

提供的示例已经简化，但即使在这种情况下我也遇到了问题。我接收下一个错误：

java.lang.IllegalArgumentException: Don't know how to create ISeq from: example.test$init$reify__2273$fn__2275
        at clojure.lang.RT.seqFrom(RT.java:505)
        at clojure.lang.RT.seq(RT.java:486)
        at clojure.core$seq.invoke(core.clj:133)
        at clojure.core$map$fn__4245.invoke(core.clj:2551)
        at clojure.lang.LazySeq.sval(LazySeq.java:40)
        at clojure.lang.LazySeq.seq(LazySeq.java:49)
        at clojure.lang.RT.seq(RT.java:484)
        at clojure.core$seq.invoke(core.clj:133)
        at clojure.core$print_sequential.invoke(core_print.clj:46)
        at clojure.core$fn__5457.invoke(core_print.clj:147)
        at clojure.lang.MultiFn.invoke(MultiFn.java:231)
        at clojure.core$pr_on.invoke(core.clj:3392)
        at clojure.core$pr.invoke(core.clj:3404)
        at clojure.lang.AFn.applyToHelper(AFn.java:154)
        at clojure.lang.RestFn.applyTo(RestFn.java:132)
        at clojure.core$apply.invoke(core.clj:624)
        at clojure.core$print.doInvoke(core.clj:3449)
        at clojure.lang.RestFn.applyTo(RestFn.java:137)
        at clojure.core$apply.invoke(core.clj:624)
        at clojure.core$print_str.doInvoke(core.clj:4391)
        ...

Answer 1

实际上，只使用@st就可以了 - 原子的值是不可变的。如果要修改原子，则以前检索到的值不会受到影响（假设您正在使用Clojure数据结构）。举例说明：

(def a (atom {:a 1})) ; => #'user/a
(def b @a) ; => #'user/b
(reset! a {:a 2}) ; => {:a 2}
b ; => {:a 1}

Answer 2

首先＆＃34;线程＆＃34; macro（->）将前一个表达式返回的值插入到下一个表达式的第二个位置 - 紧接在该函数之后。在您的示例中，这会导致map函数调用的参数循环错误（函数应该是第一个，集合是第二个）。这就是例外情况。

在这种情况下，您最后应使用＆＃34;线程＆＃34;宏（->>）将值插入下一个函数调用的最后一个位置：

(let [st (atom {:a 1 :b 2})]
  (->> (seq (keys @st))
       (map (fn [key] [key (get @st key)]))))
;; returns: ([:b 2] [:a 1])

然而，这可以简化为以下内容，因为地图可以作为seq直接遍历，每个元素都是键和值的向量，就像您尝试做的那样：

(let [st (atom {:a 1 :b 2})]
  (seq @st))
;; returns: ([:b 2] [:a 1])

如果您希望随时转换这些值，您还可以利用destructuring，例如拨打map：

(let [st (atom {:a 1 :b 2})]
  (map (fn [[k v]] [k (+ v 1)]) @st))
;; returns: ([:b 3] [:a 2])

因此，使用该函数声明为您提取键和值。

基于原子和地图函数创建新值

2 个答案: