Journal TapTempo en Crystal-Lang

Aller hop je m'y mets aussi, un petit TapTempo en Crystal.
Personne ne l'a encore fait, donc ça va permettre de faire découvrir un peu plus ce langage.

Le code est disponible sur https://github.com/syrm/taptempo
Et sinon voici la classe complète :

require "option_parser"
class TapTempo
 @taps = Array(Time::Span).new
 @sample = 5
 @resetTime = 5
 @precision = 0
 def initialize
 generateHelp
 end
 def tap
 currentTap = Time.monotonic
 checkResetTime
 @taps.shift if @taps.size == @sample
 @taps << currentTap
 end
 def loop
 STDIN.raw &.each_char do |char|
 break if char == 'q'
 tap
 displayBPM
 end
 puts "Bye Bye!"
 end
 private def checkResetTime
 return if @taps.empty?
 @taps.clear if Time.monotonic - @taps[-1] > Time::Span.new(0, 0, @resetTime)
 end
 private def displayBPM
 if @taps.size == 1
 puts "[Hit a key one more time to start bpm computation...]\r"
 return
 end
 puts sprintf "Tempo: %." + normalizePrecision + "f bpm\r", getBPM
 end
 private def getBPM
 60.0 / ((@taps[-1] - @taps[0]) / (@taps.size.to_f - 1)).to_f
 end
 private def normalizePrecision
 return "" if @precision == 0
 @precision.to_s
 end
 private def generateHelp
 OptionParser.parse! do |parser|
 parser.banner = "Usage: #{PROGRAM_NAME} [options]"
 parser.on("-h", "--help", "display this help message") do
 puts parser
 exit
 end
 parser.on("-p", "--precision=#{@precision}", "set the decimal precision of the tempo display") { |precision| @precision = precision.to_i }
 parser.on("-r", "--reset-time=#{@resetTime}", "set the time in second to reset the computation") { |resetTime| @resetTime = resetTime.to_i }
 parser.on("-s", "--sample-size=#{@sample}", "set the number of samples needed to compute the tempo") { |sample| @sample = sample.to_i }
 end
 end
end
tapTempo = TapTempo.new
tapTempo.loop