Utilities that I always end up implementing in an exploratory phase, before deciding that test.check is better

seeded_random.clj

(defn rand-int'
  ([seed] (rand-int' seed Integer/MAX_VALUE))
  ([seed upper] (rand-int' seed 0 upper))
  ([seed upper min]
   (-> (hash seed)
       (Math/abs)
       (mod (- upper min))
       (+ min)
       (dec))))

(defn rand-element
  ([vector] (rand-element vector vector))
  ([seed vector]
   (when-not (empty? vector)
     (let [upper (count vector)]
       (get vector (rand-int' seed upper))))))

(defn seed-seq [seed]
  (lazy-seq
   (let [element (rand-int' seed)]
     (cons element (seed-seq element)))))