Returns a function that quantizes data

quantizer.clj

(defn quantizer
  "Returns a function that quantizes input data which when called with 'x' returns:
  o <1st val> if        -Inf < x <= <1st bound>
  o <2st val> if <1st bound> < x <= <2st bound>
  o ...
  o <last val> if <last-1 bound> < x <= <last bound>
  o >max if x > <last bound>
 
  where m is a vector of vectors where the first element specifies the boundary and
  the second element the value which to return.
 
  Example:
  (def points->grade (quantizer [[40 :F] [60 :D] [80 :C] [90 :B]] :A))
  (map points->grade [10 80 93])
  ; (:F :C :A)"
  [m >max]
  (fn [x]
    (cond
      (<= x (first (first m))) (second (first m))
      (>  x (first (last  m))) >max
      :else (some 
             (fn [[[l _] [h hv]]]
               (and (< l x) (<= x h) hv))
             (partition 2 1 m)))))