用lisp写随机函数

陨落

怎么个随机法

sdbaijiao

谢谢，学习下。。。

Atsai

Lee-Mac的函数：
http://www.lee-mac.com/random.html

2. 
   
3. ;; Rand  -  Lee Mac
   
4. ;; PRNG implementing a linear congruential generator with
   
5. ;; parameters derived from the book 'Numerical Recipes'
   
6. 
   
7. (defun LM:rand ( / a c m )
   
8.     (setq m   4294967296.0
   
9.           a   1664525.0
   
10.           c   1013904223.0
    
11.           $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m)
    
12.     )
    
13.     (/ $xn m)
    
14. )
    

<br /> ;; Rand  -  Lee Mac<br /> ;; PRNG implementing a linear congruential generator with<br /> ;; parameters derived from the book 'Numerical Recipes'<br /> <br /> (defun LM:rand ( / a c m )<br />     (setq m   4294967296.0<br />           a   1664525.0<br />           c   1013904223.0<br />           $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m)<br />     )<br />     (/ $xn m)<br /> )<br />

星凌云飞

还不错6666

xiaolong1487

学习学习方法！

机械工程师

感谢分享 .

lostbalance

好久没来，路过学习

sicky111

看看跟以前的有什么区别

wangshang323

很好奇　先看看　，鼓励下

kingofauto

111111111111111111111111111111111111111