RosettaCodeData/Task/Pick-random-element/Emacs-Lisp/pick-random-element.l

(defun random-choice (items)
  (nth (random (length items)) items))

(random-choice '("a" "b" "c"))
;; => "a"