5 lines
175 B
Common Lisp
5 lines
175 B
Common Lisp
(defun nshuffle (sequence)
|
|
(loop for i from (length sequence) downto 2
|
|
do (rotatef (elt sequence (random i))
|
|
(elt sequence (1- i))))
|
|
sequence)
|