Playing around with channels

channels.clj

(ns channels.core
    (:require [clojure.core.async :as async :refer [chan go >! <!!]])
    (:gen-class))

(def sum (atom 0))

(defn summing [start end loops]
  (let [c (chan loops)
        piece (/ end loops)]
    (dotimes [i loops]
      (go (>! c (reduce + (range (* piece i) (* piece (inc i)))))))

    (dotimes [i loops]
       (let [data (<!! c)]
          (dosync (swap! sum + data))))))

(defn -main [end loops]
  (reset! sum 0)
  (time (summing 0 (read-string end) (read-string loops)))
  (println @sum))