gistfile1.txt

(defn use-counter-increment []
  (do
    (dosync (ref-set use-counter (inc (deref use-counter))))
    @use-counter))

;Adjusted shuffle given a seed, "shuffle-with-seed", from sloth:
;http://stackoverflow.com/questions/24553212/how-to-take-n-random-items-from-a-collection-in-clojure
;(since we don't want non-deterministic testcases)
(defn shuffle-random
  "Return a random permutation of coll with a seed"
  [coll]
  (do
    (use-counter-increment)
    (let [seed (deref use-counter)
         al (java.util.ArrayList. coll)
         rnd (java.util.Random. seed)]
     (java.util.Collections/shuffle al rnd)
     (clojure.lang.RT/vector (.toArray al)))))