Plaster
New
List
Login
common-lisp
default
anonymous
2019.06.07 13:16:39
(defun random-select (L) (nth (random (length L)) L)) (defun random-select-non-mafia (L) (nth (random (length (remove 'm L))) (remove 'm L)))
Raw
Annotate
Repaste
Edit