 
 
 
-
 (defn paint-it-red [s]
   (str "red "
        (last (clojure.string/split s #"\s"))))
 
-
 (defn is-a-rose? [s]
   (= "rose"
      (last (clojure.string/split s #"\s"))))
-
-
 
 ;; Now here is where the transducers come in. We have two transformations
 ;; that we can apply to a vector of flower strings. In the previous

(ns queen-of-hearts.core
  (:require [clojure.core.async :as async]))

(defn foo
  "I don't do a whole lot."
  [x]
  (println x "Hello, World!"))

;; Transducers



(def flowers ["white carnation"
              "yellow daffodil"

   (map paint-it-red)
   (filter is-a-rose?)))

(def flower-chan (async/chan 1 fix-for-the-queen-xform))

(def result-chan (async/reduce 
