Chan of chars to chan of words

Question

How can I make a words chan out of chars chan?

I have chan c that read all characters from file. And i need words(str) chan from c chan.( words need to be made from с, not from a file)

  (def file-as-str (slurp "src/clojure2/text.txt"))
    (def read (str/split file-as-str #""))

(defn ch
  [c]
  (go
    (doseq [o read]
      (>! c o)
      ))
  )

(defn word
  [c]
  (let [k (chan)]
    (go-loop []
      (let [o (<! c)]
        (when (not= " " o)
          (>! k o)
          (recur))))
    k))

(defn -main
  [& args]

  (let [c (chan)
        words (chan)]

    ;(go-loop []
    ;  (let [o (<! c)]
    ;    (println o))
    ;  (recur))

    (ch c)
    (word c)
    )
  )

UPDATE And so I made a function that returns a chan of characters for 1 word. But I don't understand how to combine this into 1 word

Answer 1

You can create chan with transducer which converts incoming characters to outgoing words.

  (let [ch (async/chan 100 (comp
                             (partition-by (complement #{\space}))
                             (map #(apply str %))
                             (remove #{" "})))]
    (doseq [c "Hello, world! "]
      (async/>!! ch c))

    (async/<!! (async/into [] (async/take 2 ch))))

=> ["Hello," "world!"]