Journal Portage de TapTempo en Clojure

Salut à tous.

Voici une version en Clojure. Rien de remarquable, juste qu'on affiche le tempo tous les 6 battements.
Il n'y a pas la prise en charge d'arguments ou d'internationalisation.

(ns taptempo.core
  (:import jline.console.ConsoleReader)
  (:gen-class))

(defn now []
  (System/currentTimeMillis))

(defn read-char []
  (-> (ConsoleReader.) (.readCharacter) char))

(defn calc-tempo [start end taps]
  (* (/ taps (- end start)) 1000 60))

(defn print-tempo [tempo]
  (println (format "Tempo: %.2f bpm" (float tempo))))

(defn -main [& args]
  (println "Appuyer sur la touche entrée en cadence (q pour quitter).")
  (loop [start (now), count 0]
    (when-not (= (read-char) \q)
      (if (= count 6)
        (do
          (-> (calc-tempo start (now) count)
              print-tempo)
          (recur (now) 0))
        (recur start (inc count))))))

Ils sont fun tous ces journaux !