Anonymous user
Monty Hall problem: Difference between revisions
m
oops
m (use <lang>) |
m (oops) |
||
Line 383:
(defun won? (array i)
(= 1 (bit array i)))</lang>
<lang lisp>CL-USER> (progn (loop repeat #1=(expt 10 6)
for round = (make-round)
for initial = (random 3)
|