“Losowy wybór z listy ciągów w EMACS LISP” Kod odpowiedzi

Losowy wybór z listy ciągów w EMACS LISP

;; Emacs Lisp
(defun random-choice (items)
  (nth (random (length items)) items))
 
(random-choice '("a" "b" "c"))
;; => "a"