Clojure函数实现一个序列

Question

我有以下功能来收集数据交易报告，这个earlier question的输出。

(def recreate-database
  "Defines a function which when called will call each of the four given
   functions and return a collection containing the output of each."
  (juxt pt1-transact-schema
        pt1-transact-data
        pt2-transact-schema
        pt2-transact-data))

下一步是这些函数中的每一个本身可能调用的不是一个而是一系列事务，因此所需的完整结果将是用于初始数据库构建的事务报告的嵌套集合。

我有以下，这是不合适的，因为当从上面的recreate-database调用时，只有最后一个交易报告通过，一个函数当然只返回它的最终形式。

(defn pt1-transact-data []
  (d/transact conn {:tx-data pt1-user-data})
  (d/transact conn {:tx-data pt1-path-data})
  (d/transact conn {:tx-data pt1-series-data}))

所以我到了下面

(defn pt1-transact-data []
  (map identity
    [(d/transact conn {:tx-data pt1-user-data})
     (d/transact conn {:tx-data pt1-path-data})
     (d/transact conn {:tx-data pt1-series-data})
     (d/transact conn {:tx-data pt1-path-series-data})]))

这很好用，但仍然存在偶然的复杂性。 map identity 在语言上相对于此处的预期含义而言是低级的。

因此想到，我们只需要“实现序列”，所以我提取了：

(defn realize-all [coll] (map identity coll))

然后我想起了doall。 在这里也可以使用它。

那么，这和doall 所做的一样吗？

我从(source doall) 注意到它看起来不一样，导致dorun，导致...recur。

所以map identity 或doall 或dorun 似乎在这里起到类似的作用。

这些是等价的吗？还有什么要说的吗？

Answer 1

你为什么不把它包装在一个向量中呢？这似乎是最简单的解决方案：

(defn pt1-transact-data []
  [(d/transact conn {:tx-data pt1-user-data})
   (d/transact conn {:tx-data pt1-path-data})
   (d/transact conn {:tx-data pt1-series-data})])

否则你可以使用mapv:

(defn pt1-transact-data []
  (mapv (partial d/transact conn)
        [{:tx-data pt1-user-data}
         {:tx-data pt1-path-data}
         {:tx-data pt1-series-data}))