我正在构建一个数据模式,并且在我的脚下有以下内容clj
定义和处理模式和初始数据的文件。每次调用下面调用的函数d/transact
.
(defn recreate-database []
"To recreate db after running delete-database in bin/repl"
(pt1-transact-schema)
(pt1-transact-data)
(pt2-transact-schema)
(pt2-transact-data)
(pt3-transact-schema)
(pt3-transact-data))
默认情况下,我们只看到最后一个表单的返回值,但我想查看或保存六个函数调用中每个函数的结果。
想知道这是一个多么好的方法。
想到类似的事情(map (comp println eval) [functions])
,但这是不对的。
还有一个很好的函数组合函数叫做juxt
:
user> ((juxt + - * /) 1 2)
;;=> [3 -1 2 1/2]
user> ((juxt (constantly 1) (constantly 2) (constantly 3)))
;;=> [1 2 3]
或者在你的情况下:
(def recreate-database (juxt pt1-transact-schema
pt1-transact-data
pt2-transact-schema
pt2-transact-data
pt3-transact-schema
pt3-transact-data))
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)