Skip to content

Instantly share code, notes, and snippets.

@syou6162

syou6162/rand.clj

Created March 5, 2014 09:57
Show Gist options
  • Save syou6162/9364393 to your computer and use it in GitHub Desktop.
Save syou6162/9364393 to your computer and use it in GitHub Desktop.
Download ZIP
rand-intなどの関数に無理やり再現性を持たせる(seedを設定する)
Raw
rand.clj
(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