halgari

(defn unordered-pmap [threads f in-c out-c]
  (let [remain (atom threads)]
    (dotimes [x threads]
      (go-loop []
        (if-some [v (<! in-c)]
          (do (>! out-c (f v))
              (recur))