Name: Anonymous 2009-05-15 15:03
http://en.wikipedia.org/wiki/Monte_Carlo_method
(defmacro nlist (val &optional (n 1))
`(unless ,(zerop n)
(cons ,val
`,(nlist ,val ,(1- n)))))
; implement Monte Carlo method on 10-bit integer
(reduce #'+ (nlist (random 2) 10))