Как вернуть разыменованное значение в качестве результата функции в 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 

... но, конечно, должен быть лучший способ сделать это, что не нужно предполагать, что значение атома является вектором?

Answer 1

Ни один из существующих ответов не дают два простых, самых сжатых решения, так что вот они.Как stated по @Stefan, вы хотите что-то эквивалентное эту функцию:

(fn [] (deref v)) 

Однако это использование deref именно случай использования, что @ читателя макросъемка предназначена для упрощения:

(fn [] @v) 

Или , так как (deref v) вызов функции, вы можете вместо этого использовать #() читателя макрос:

#(deref v) 

Главное, что вы не можете использовать как@, так и #()вместе в этом случае. Но это не значит, что вы не можете или не должны использовать один из них из них.

Answer 2

Иногда лучше оставить читателя конструкции, как # и @, и просто идти с функциями (или макросов и специальных форм):

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

я беру это, что ваш пример очень упрощенная версия от того, что вы действительно хотите сделать. Если нет, deref может быть просто функцией, которую вы ищете.

Answer 3

I want to write a function that will return this dereferenced atom

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

Answer 4

прежде всего: причиной этой ошибки является расширение синтаксиса лямбда-выражения сахара. Вы могли бы думать об этом так:

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

так, думая так:

#(@v) => (fn [] (@v)) и @v в свою очередь, расширяется до (deref v) (легко видеть с macroexpansion), что приведет вас к этой форме:

(fn [] ((deref v)))

на самом деле вы наполовину правы с предполагаемой причины ошибки: результат разыменования вызывается как функция, но на самом деле это может быть (как вектор га функциональная семантика), а просто не хватает обязательного параметра (именно то, что сказано в тексте ошибки). поэтому он должен работать для этого: #(@v 0) =>(fn [] ((deref v) 0))

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

лично я бы просто пойти с частичным применением вместо лямбда-выражения для решения этой проблемы:

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