Elección aleatoria de la lista de cuerdas en emacs lisp
;; Emacs Lisp
(defun random-choice (items)
(nth (random (length items)) items))
(random-choice '("a" "b" "c"))
;; => "a"
Tame Tern