Added shuffle function using rng from set-random-seed\!, updated read…

…me and project.clj, updated and tested clojure 1.8.0

README.md

@@ -10,7 +10,7 @@ Supply your own random seed to the clojure.core random functions.
 
  (ns example.core
   (:require [random-seed.core :refer :all])
-  (:refer-clojure :exclude [rand rand-int rand-nth]))
+  (:refer-clojure :exclude [rand rand-int rand-nth shuffle]))
 
  (set-random-seed! 888)
 
@@ -20,6 +20,8 @@ Supply your own random seed to the clojure.core random functions.
 
  (rand-nth [:a :b :c])
 
+ (shuffle [:a :b :c])
+
 ## License
 
 Copyright © 2015 Trystan

project.clj

@@ -1,6 +1,6 @@
-(defproject random-seed "1.0.0"
- :description "Copies of rand, rand-int, and rand-nth, except you can specify the seed."
+(defproject random-seed "1.0.1"
+ :description "Copies of rand, rand-int, rand-nth and shuffle, except you can specify the seed."
  :url "https://www.github.com/trystan/random-seed"
  :license {:name "Eclipse Public License"
  :url "http://www.eclipse.org/legal/epl-v10.html"}
- :dependencies [[org.clojure/clojure "1.5.1"]])
+ :dependencies [[org.clojure/clojure "1.8.0"]])

src/random_seed/core.clj

@@ -1,5 +1,5 @@
 (ns random-seed.core
- (:refer-clojure :exclude [rand rand-int rand-nth]))
+ (:refer-clojure :exclude [rand rand-int rand-nth shuffle]))
 
 
 (defonce rng (new java.util.Random))
@@ -30,3 +30,11 @@
  specified in set-random-seed!."
  [coll]
  (nth coll (rand-int (count coll))))
+
+(defn shuffle
+ "Return a random permutation of coll. Works like clojure.core/shuffle
+ except it uses the seed specified in set-random-seed!."
+ [^java.util.Collection coll]
+ (let [al (java.util.ArrayList. coll)]
+ (java.util.Collections/shuffle al rng)
+ (clojure.lang.RT/vector (.toArray al))))