syou6162/rand.clj

Created March 5, 2014 09:57

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/syou6162/9364393.js"></script>
Save syou6162/9364393 to your computer and use it in GitHub Desktop.

Download ZIP

rand-intなどの関数に無理やり再現性を持たせる(seedを設定する)

Raw

	(let [seed (java.util.Random. 1)]
	(with-redefs [rand (fn [n] (* n (. seed nextDouble)))]
	(mapv (fn [_] (rand-int 2)) (range 10))))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment