如何作为 Clojure 中函数的结果返回取消引用的值

Question

我有一个带有向量值的原子：

(def v (atom [1 2]))

我想编写一个函数来返回这个取消引用的原子。也就是说，我基本上是想写一个函数，它会返回和这个一样的结果：

=> @v
[1 2]

我的第一个想法是这样的：

=> (let [f #(@v)]
     (println (f)))
ArityException Wrong number of args (0) passed to: PersistentVector  clojure.lang.AFn.throwArity (AFn.java:429)

但这当然不起作用，因为取消引用的原子不是函数：

=> (@v)
ArityException Wrong number of args (0) passed to: PersistentVector  clojure.lang.AFn.throwArity (AFn.java:429)

我最终得到的解决方法是：

=> (let [f #(vec @v)]
     (println (f)))
[1 2]
nil

...但肯定有更好的方法来做到这一点，而不必假设 atom 的值是向量？

Answer 1

现有的答案都没有给出两个最简单、最简洁的解决方案，所以他们在这里。作为@Stefan 的stated，您需要与此功能等效的东西：

(fn [] (deref v))

但是，deref 的这种用法正是 @ 阅读器宏旨在简化的用例：

(fn [] @v)

或者，由于(deref v) 是一个函数调用，您可以改用#() 读取器宏：

#(deref v)

这里的要点是，在这种情况下，您不能同时使用 @ 和#() together。但这并不意味着您不能或不应该使用其中一个。

Answer 2

有时最好将# 和@ 之类的阅读器结构留在外面，只使用函数（或宏和特殊形式）：

user> (def v (atom [1 2]))
#'user/v
user> (let [f (fn [] (deref v))] (f))
[1 2]

我认为，您的示例是您真正想做的非常简化的版本。如果没有，deref 可能正是您正在寻找的功能。

Answer 3

我想写一个函数来返回这个取消引用的原子

(def v (atom [1 2]))
(defn foo [] @v)
(foo) ;;=> [1 2]

Answer 4

首先：这个错误的原因，是lambda表达式糖语法的扩展。你可以这样想：

#(expression*) => (fn [] (expression*))

所以，这样想：

#(@v) => (fn [] (@v)) 和 @v 依次扩展为 (deref v)（通过宏扩展很容易看到），这会将您带到这种形式：

(fn [] ((deref v)))

事实上你对错误的假设原因有一半是正确的：取消引用的结果被作为一个函数调用，但实际上它可能是（因为向量具有函数语义），而它只是缺少一个强制参数（正是错误文本中所说的）。 所以它应该适用于此：#(@v 0) => (fn [] ((deref v) 0))

user> (let [f #(@v 0)]
        (println (f)))
1
nil

我个人只会使用部分应用程序，而不是 lambda 表达式来解决这个问题：

user> (let [f (partial deref v)]
        (println (f)))
[1 2]
nil