4 lines
139 B
Common Lisp
4 lines
139 B
Common Lisp
(define (pick-random list)
|
|
(list-ref list (random (length list))))
|
|
(pick-random (iota 1000)) → 667
|
|
(pick-random (iota 1000)) → 179
|