生成n个和是m的随即数

__slucx__

今天看到别人发的一个帖子，
要求生成n个和是m的随即数，
写了下面的代码，
请问这样是不是等概率随即?

1. 
   
2. (define (read-n-nr n m)
   
3.   (let ((read-n-iter
   
4.          (lambda (n m l)
   
5.            (cond
   
6.             ((zero? n) l)
   
7.             ((= n 1) (cons m l))
   
8.             (else (let ((r-m (random (1+ m))))
   
9.                     (read-n-iter (1- n)
   
10.                                  (- m r-m)
    
11.                                  (cons r-m l))))))))
    
12.     (read-n-iter n m '())))
    

复制代码

__slucx__

回复 1# __slucx__


    这样就不是等概率了