temp20140130.clj

(loop [sec 0
       good 0]
  (let [{:keys [out exit] :as result} (ping! host)]
    (print (if (zero? exit) "#" "."))
    (flush)
    (let [new-sec (inc sec)
          clear? (= new-sec 60)
          new-good (if (zero? exit) (inc good) good)]
      (when clear?
        (println (summarize good)))
      (Thread/sleep 500)
      (if clear?
        (recur 0 0))
        (recur new-sec new-good)))))