Идиома для трансдукции над атомом?

Question

Что такое идиоматический способ применения преобразователей к значению атома?

Это, похоже, выполняет эту работу, но я не уверен в правильности (и стиле ^^).

(let [xf1 (map inc) 
     xf2 (map #(+ % 2)) 
     xf #(vec (eduction (comp xf2 xf1) %)) 
     a (atom [1 2 3])] 
    (swap! a xf)) 
;=> [4 5 6] 

Answer 1

(let [xf1 (map inc) 
     xf2 (map #(* % 2)) 
     foo #(into [] (comp xf2 xf1) %) 
     a (atom [1 2 3])] 
    (swap! a foo)) 
;; => [3 5 7] 

Есть две вещи, которые нужно принять к сведению.

1. comp В преобразователях работает обратный порядок как нормальное применение. То есть xf2 применяется до xf1. Для каждого элемента он удваивается, а затем увеличивается.
2. eduction возвращает последовательность, поэтому это не тот же тип, что и исходное значение в атоме.