 (ns simple-check.generators
   (:require [simple-check.util :as util])
   (:import java.util.Random)
-  (:refer-clojure :exclude [int vector map]))
+  (:refer-clojure :exclude [int vector map keyword char]))
 
 (defn random
   ([] (java.util.Random.))

(defn tuple
  [generators]
  (fn [rand-seed size]
    (vec (clojure.core/map util/nullary-apply generators))))

(defn shrink-tuple
  [value]

        min-range
        (+ (.nextInt rand-seed (inc diff)) min-range)))))

(defn pair
  [a b]
  (fn [rand-seed size]
    [(a rand-seed size)
     (b rand-seed size)]))

(defn sample
  ([generator]
   (repeatedly #(util/nullary-apply generator)))
