clojure - clojure.core.reducersを使用して「partition」関数を実装することは可能ですか？

Question

私は次の機能を持っています：

(defn map-pairs [f coll]
  (map f (partition 2 1 coll)))

clojure.core.reducersを使用して中間の2要素コレクションの作成を回避することは可能ですか？

Answer 1

箱から出していない。でも君ならできる：

=> (into [] (map2 + (range 10)))
[1 3 5 7 9 11 13 15 17]

見る：

(deftype Fn2 [f1 f ^:volatile-mutable a ^:volatile-mutable b]
  clojure.lang.IFn
  (invoke [this] (f1))
  (invoke [this _] (set! b this)) ; hack to init the sentinel
  (invoke [this ret v] 
    (set! a b)
    (set! b v)
    (if (identical? a this)
      ret
      (f1 ret (f a b))))
  #_(invoke [this ret k v] to do))

(defn fn2 [f1 f] 1
  (let [f2 (Fn2. f1 f nil nil)]
    (f2 nil)
    f2))

(defn map2 [f coll]
  (r/reducer coll
    (fn [f1]
      (fn2 f1 f))))