RosettaCodeData/Task/Pick-random-element/TXR/pick-random-element.txr

@(do (defun randelem (seq)
       [seq (random nil (length seq))]))
@(bind x @(randelem #("a" "b" "c" "d")))
March 2014 update 2014-04-02 16:56:35 +00:00			`@(do (defun randelem (seq)`
			`[seq (random nil (length seq))]))`
tasks a-s 2013-04-10 23:57:08 -07:00			`@(bind x @(randelem #("a" "b" "c" "d")))`