Generate floats in a range for test.check generators

float-generators.clj

(def float
  "Generates a floating point number which shrinks towards zero"
  (fmap core/float ratio))

(defn float-in-range
  "Generates a floating point number with a given start/end
  point (inclusive)"
  [range-start range-end]
  (let [gen-float-0-to-1 (sized (fn [size]
                                  ;; We can't have 0 as our bound, would give NaN
                                  (let [bound (max size 1)]
                                    (fmap (fn [x] (/ x (core/float bound)))
                                          (choose 0 bound)))))
        range-width      (- range-end range-start)]
    (fmap (fn [x] (+ range-start (* x range-width))) 
          gen-float-0-to-1)))

hi