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

Question

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

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

Answer 1

在xforms库中有很多。

Answer 2

我认为，当你需要它们时，你会创建自己的转换器上下文——例如，我们处理数以亿计的来自WebSockets的事件，并将它们写入Kafka主题，这些主题会被不同的下游消费者多次处理。转换器非常适合这些操作，我们广泛使用它们。

Answer 3

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

Answer 4

我对这个想法尝试了一段时间，认为应该分享一下。这主要是通过投放器添加事物到atom中，同时在跟踪结果是否被 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）。