luciano/nippy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Crypto] Add rand-long [n] arity

Browse source
This commit is contained in:
Peter Taoussanis 2019-03-30 12:54:43 +01:00
parent ee31c1c64b
commit 649e140889
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/taoensso/nippy/crypto.clj
View file

@ -25,15 +25,19 @@
(when (< (.nextDouble rng) 2.44140625E-4) (.setSeed rng (.generateSeed rng 8))) (when (< (.nextDouble rng) 2.44140625E-4) (.setSeed rng (.generateSeed rng 8)))
rng)) rng))
(defn rand-nth "Uses `srng`" [coll] (nth coll (int (* (.nextDouble (srng)) (count coll)))))
(defn rand-bytes "Uses `srng`" ^bytes [size] (let [ba (byte-array size)] (.nextBytes (srng) ba) ba)) (defn rand-bytes "Uses `srng`" ^bytes [size] (let [ba (byte-array size)] (.nextBytes (srng) ba) ba))
(defn rand-double "Uses `srng`" ^double [] (.nextDouble (srng))) (defn rand-double "Uses `srng`" ^double [] (.nextDouble (srng)))
(defn rand-long "Uses `srng`" ^long [] (.nextLong (srng)))
(defn rand-gauss "Uses `srng`" ^double [] (.nextGaussian (srng))) (defn rand-gauss "Uses `srng`" ^double [] (.nextGaussian (srng)))
(defn rand-bool "Uses `srng`" [] (.nextBoolean (srng))) (defn rand-bool "Uses `srng`" [] (.nextBoolean (srng)))
(defn rand-nth "Uses `srng`" (defn rand-long "Uses `srng`"
[coll] (nth coll (int (* (rand-double) (count coll)))))) (^long [ ] (.nextLong (srng)))
(^long [n] (long (* (long n) (.nextDouble (srng)))))))
(comment (seq (rand-bytes 16))) (comment
(seq (rand-bytes 16))
(rand-nth [:a :b :c :d])
(rand-long 100))
;;;; Hashing ;;;; Hashing