naive_bench.clj

(ns async.naive-bench
  (:require [clojure.core.async :as async
             :refer [<! <!! >! timeout chan alt! go put! filter< map< go-loop]]))

(def test-ch (chan))

(loop []
  (put! test-ch (System/currentTimeMillis))
  (Thread/sleep 0 5)
  (recur))

(future 
  (loop []
    (println "Delta " (- (System/currentTimeMillis) (<!! test-ch)) " ms")
    (recur)))