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))
(…)