Simple answer to http://ahungry.com/blog/2019-08-28-Round-1-Clojure-vs-Blub-Lang-Parallelism.html

par.clj

(ns par
  (:require [clojure.core.async :as a]))

(def my-data-log (atom []))

(defn fetch-data! [n]
  (Thread/sleep 1e3)
  (swap! my-data-log conj (str "Fetched record: " n))
  n)


(defn work! [n]
  (let [output-chan (a/chan)]
    (a/pipeline-blocking n
                         output-chan
                         (map fetch-data!)
                         (a/to-chan (range 99)))
    (a/<!! (a/into [] output-chan))))

;;par> (time (count (work! 100)))
;;"Elapsed time: 1013.54152 msecs"