Plaster
New
List
Login
common-lisp
default
anonymous
2019.08.13 17:12:17
(let ((newlist (list 1 2 3 4 5 6 7 8 9 10))) (dotimes (n 10) (let ((ele (elt newlist (random (length newlist))))) (print ele) (setf newlist (remove ele newlist)))))
Raw
Annotate
Repaste
Edit