其他可能的转换器上下文是什么？

Question

在Rich Hickey的《转换器》（2014）演讲中，他谈到了存在的“今日”转换器上下文——集合和core.async，以及可能会是“明天”（观察者）的内容。

现在过去了5年，我想知道，还有哪些在野外创建和使用中的转换器上下文呢？

Answer 1

在xforms库中有几个。

Answer 2

我认为当你需要它们时，你会创建自己的——例如，我们处理来自网络套接字的数亿个事件并写入Kafka主题，它们被多个下游消费者多次处理。转换器适合这些操作，并且我们广泛使用它们。

Answer 3

clojure.java.jdbc/reducible-query
next.jdbc/plan
lines-reducible

Answer 4

我已经对这个想法琢磨了一段时间，想和大家分享一下。这基本上是一种向原子对象添加事物的方法，同时还要承诺跟踪结果是否是 reduced?。有点像你可以给 core.async/chan 提供一个转换器

(defn mkadder
  "returns a function which, given a value, adds that value the the atom a with the reducing function rf. If the result is reduced, deliver the dereferenced result to promise p."
  [a p rf]
  (fn [x]
    (let [result (rf a x)]
      (if (reduced? result)
        (do (deliver p @@result) @result) ;;what to return?
        result))))

(defn acc
  "accumulates state in an atom subject to a transducer. returns a map
  with the keys :adder, :a and :p. Use the :add! function to add
  state. :p is a promise which will be delivered the state in a when
  rf is realized"
  ([xf rf] (acc xf rf (rf)))
  ([xf rf init]
   (let [a       (atom init)
         swapper (fn [acc x] (doto acc (swap! rf x)))
         rf      (xf swapper)
         p       (promise)]
     {:add! (mkadder a p rf) :a a :p p})))

;;demo
(let [{:keys [add! a p]}
      (acc (comp (map inc) (filter even?) (take 5)) conj)]
  (future
    (doseq [i (range 20)]
      (add! i)
      (println "atom contains: " @a "promise realized?" (realized? p))
      
      (Thread/sleep 500))))

我有一种情况，其中从外部来源接收了一定数量的消息，需要将其应用于 filter 和 take/take-while，能够利用这些 clojure.core 功能而不是自己管理状态会很好。而且 core.async 会有些过度（我不需要 CSP）。