我用递归算100的阶乘为什么会返回0

changyiran

(defun jc(n)
(if(= n 0)
1
(* n(jc(1- n)))
)
)
算20的阶乘时返回-2102132736，真是纳闷至极！

Gu_xl

(defun jc(n)
(if(= n 0)
1
(* n 1. (jc(1- n)))
)
)

changyiran

Gu_xl 发表于 2012-9-23 11:49  (defun jc(n)  (if(= n 0)  1

g版啊，真是神奇了，可是加个1.是什么意思呢？

zml84

实数                             

2. (defun jc(n)
   
3.     (if(<= n 1)
   
4.         1.0
   
5.         (* n ( jc (1-  n)))
   
6.     )
   
7. )

(defun jc(n)<br />     (if(<= n 1)<br />         1.0<br />         (* n ( jc (1-  n)))<br />     )<br /> )

changyiran

zml84 发表于 2012-9-23 14:04
实数

哦，g版的写法太新颖了，一时没看懂，我现在算200的阶乘，返回1.#nif是怎么回事，难道是数值太大显示不了？

【KAIXIN】

changyiran 发表于 2012-9-23 16:47
哦，g版的写法太新颖了，一时没看懂，我现在算200的阶乘，返回1.#nif是怎么回事，难道是数值太大显示不了 ...

超出整数   显示......

changyiran

【KAIXIN】 发表于 2012-9-23 18:23  超出整数 显示......

哦，谢谢版主提醒！

chlh_jd

2. (defun fact  (N / r)
   
3.   ;; n!  
   
4.   (cond        ((< 0 n 32))
   
5.         ((> 171 n 31)
   
6.          (setq n (float n)))
   
7.         ((or (> n 171) (< n 0))
   
8.          (setq n nil)))
   
9.   (if n
   
10.     (progn
    
11.       (setq r 1)
    
12.       (while (< 1 (abs n))
    
13.         (setq r        (* r n)
    
14.               n        (1- n)))
    
15.       r))
    
16.   )

(defun fact  (N / r)<br />   ;; n!  <br />   (cond        ((< 0 n 32))<br />         ((> 171 n 31)<br />          (setq n (float n)))<br />         ((or (> n 171) (< n 0))<br />          (setq n nil)))<br />   (if n<br />     (progn<br />       (setq r 1)<br />       (while (< 1 (abs n))<br />         (setq r        (* r n)<br />               n        (1- n)))<br />       r))<br />   )

328302216

byghbcx

200!=788657867364790503552363213932185062295135977687173263294742533244359449963403342920304284011984623904177212138919638830257642790242637105061926624952829931113462857270763317237396988943922445621451664240254033291864131227428294853277524242407573903240321257405579568660226031904170324062351700858796178922222789623703897374720000000000000000000000000000000000000000000000000