8 lines
158 B
Text
8 lines
158 B
Text
|
(defun random-choice (items)
|
||
|
|
(let* ((size (length items))
|
||
|
|
(index (random size)))
|
||
|
|
(nth index items)))
|
||
|
|
|
||
|
|
(random-choice '("a" "b" "c"))
|
||
|
|
;; => "a"
|