6 lines
110 B
EmacsLisp
6 lines
110 B
EmacsLisp
|
(defun random-choice (items)
|
||
|
|
(nth (random (length items)) items))
|
||
|
|
|
||
|
|
(random-choice '("a" "b" "c"))
|
||
|
|
;; => "a"
|