Rosetta Code

Pick random element: Difference between revisions

Page Discussion

Pick random element (view source)

Revision as of 11:02, 21 February 2022

50 bytes removed ,  2 years ago
m
Emacs Lisp: Improve formatting
(Add CLU)
m (Emacs Lisp: Improve formatting)
Line 588:
 
=={{header|Emacs Lisp}}==
<lang Lisp>(defun random-choice (items)
(defunnth (random-choice (length items)) items))
(let* ((size (length items))
(index (random size)))
(nth index items)))
 
(random-choice '("a" "b" "c"))
;; => "a"</lang>
</lang>
 
=={{header|Erlang}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/197797"