Create a list of items taken at random from generators. List
size is random from *size*.
(defn list-of
"Create a list of items taken at random from generators. List
size is random from *size*."
[& generators]
(let [gen (apply choose-from generators)]
(fn [] (take (rand-int *size*) (repeatedly gen)))))
Comments top
No comments for list-of. Log in to add a comment.