        (take limit)
        (map counter)
        (reduce +)))
+
+;Transducers - non-parallel?
+(def xf2
+  (comp
+    (take 40)
+    (map counter)
+    (map inc)))
+;(time (transduce xf2 + (repeat work-proxy-thunk)))

        vec
        ;(r/take limit)
        (r/map counter)
        (r/fold 8 + +)
        ))


(ns clojure-club.playground.mbastian
  (:require [clojure.core.reducers :as r]
            [taoensso.tufte :as tufte :refer (defnp p profiled profile)]))

(defn slow-range [n delay] (map (fn [i] (fn [] (Thread/sleep delay) i)) (range n)))
(defn slow-rangev [n delay] (mapv (fn [i] (fn [] (Thread/sleep delay) i)) (range n)))

(defn work-proxy [input]  (Thread/sleep input)  1)

