; rbodds - illustration of "rubber band" odds

(block nil (setq *random-state* (make-random-state t)) (return))

(defconstant +base-odds+ -3)

(defparameter *state* +base-odds+)

(defun roll ()

(when (<= (random 10) *state*)

(setf *state* +base-odds+)

t))

(loop for n from 1 to 100 do

(format t "~a~c~a~c~a~&" n #\Tab (roll) #\Tab *state*)

(incf *state*))