18743 evanpro ;;; probability that any two members of a group of N ;;; will match in a space of M (define (birthday N M) (let birthday-count ((product 1) (n 1)) (if (>= n N) (- 1 product) (birthday-count (* product (/ (- M n) M)) (+ n 1))))) 3353423659 None Scheme