aws.clj

(ns third-post.core
  (:require [com.twinql.clojure.http :as http]))

(defn ping []
  (-> (http/get "http://localhost:5123" :as :string) :content))

(defn multi-ping []
  (->> (repeatedly 16 #(ping))
       (apply str)))

(defn par-ping []
  (->> (repeatedly 16 #(future (ping)))
       (pmap deref)
       (apply str)))

(comment
  ;; ~450ms                                                                                                                    
  (dotimes [_ 10]
    (Thread/sleep 1000)
    (time
     (dotimes [_ 60]
       (multi-ping))))

  ;; ~110ms                                                                                                                    
  (dotimes [_ 10]
    (Thread/sleep 1000)
    (time
     (dotimes [_ 60]
       (par-ping))))
  )