(rand)

0.3910442447737178

(rand-int 10)

3

(take 10 (repeatedly #(rand-int 10)))

(1 4 0 4 4 3 7 8 1 4)

(mod 10 3)

1

(defn random-number [min max]
  (+ (rand-int (- (inc max) min)) min))

(random-number 32 42)

40

(random-number 32 42)

40

(take 5 (repeatedly #(random-number 32 42)))

(36 40 34 34 34)

(defn random-number
  ([min max]
   (+ (rand-int (- (inc max) min)) min))
  ([max]
   (random-number 0 max))
  ([]
   (random-number 0 1)))

(random-number 10)

1

(random-number)

0

(random-number 10 20)

12

(defn random-numbers [n min max]
  (take n (repeatedly #(random-number min max))))

(random-numbers 10 32 42)

(37 36 33 33 40 32 36 33 35 34)

(defn random-numbers
  ([n min max]
   (take n (repeatedly #(random-number min max))))
  ([n max]
   (random-numbers n 0 max))
  ([n]
   (random-numbers n 0 1)))

(random-numbers 10)

(1 1 0 1 1 1 1 0 1 0)

(random-numbers 10 42)

(36 42 9 13 7 35 33 14 35 12)

(random-numbers 10 32 42)

(36 33 32 32 32 40 36 39 36 42)

source: notebooks/random_number_generator.clj