Plaster
New
List
Login
common-lisp
default
anonymous
2019.06.07 12:58:09
(defun random-select (L) (nth (random (length L)) L)) (defun random-select-non-mafia (L) (let ((target (random-select L))) (if (eq target 'm) (random-select-non-mafia L) target)))
Raw
Annotate
Repaste
Edit