I got this far:
;;(defn finger->note [finger time]
;;  (cond
;;   (= time (zero? (mod time 3))) (+ 100 (* 12 finger) time)
;;   (= time (zero? (mod time 2))) (+ 0 (* 12 finger) time)
;;   :else (+ 50 (* 12 finger) time))
The idea is that for every "normal" note, every third and second finger will be the same amount higher and lower in note than "normal."
Something isn't working however. I have an EOF and LispReader Exception errors.
Help!