Transducers, but with state stored inside the "result" instead of in atoms / volatiles.

transducer-state.clj

;;; Transducers, but with state stored inside the "result" instead of in atoms 
;;; / volatiles.

(defn map1 [f]
  (fn [[rf idx]]
    [(fn
       ([] (rf))
       ([result] (rf result))
       ([result input] (rf result (f input))))
     (inc idx)]))

(defn partition1 [n]
  (fn [[rf idx]]
    [(fn
       ([] (rf))
       ([result]
        (let [window (get-in result [idx :window])
              result (if (seq window)
                       (rf (update result idx dissoc :window) window)
                       result)]
          (rf result)))
       ([result input]
        (let [window (conj (get-in result [idx :window] []) input)]
          (if (= (count window) n)
            (-> result
                (assoc-in [idx :window] [])
                (rf window))
            (assoc-in result [idx :window] window)))))
     (inc idx)]))

(let [[rf _]
      ((comp (map1 inc) (partition1 3))
       [(fn
          ([xs x] (update xs :result conj x))
          ([xs] xs))
        0])]
  (transduce identity rf {:result []} (range 10)))
;=> {:result [[1 2 3] [4 5 6] [7 8 9] [10]], 0 {}}

What's up, everyone? I found a glossy flyer tucked under my windshield wiper at an Ottawa mall parking lot. I usually toss them, but the mobile compatibility ratings caught my attention. I decided to read more on my phone and really liked how they test each site on different devices. Finding an online casino in Canada that actually works on older phones is a huge win for someone who refuses to upgrade.