请教一个递归的问题

434939575

2. (defun jc(n)
   
3.     (if(<= n 1)
   
4.         1.0
   
5.         (* n
   
6.      ( jc (1-  n))
   
7.      )
   
8.     )
   
9. )
   
10. 
    
11. (defun  c:tt()
    
12. (jc 5)
    
13.   )
    
14. ;返回120
    
15. 函数自身调用硬是脑子转不过了。这个返回结果是：120真不知道怎么弄出来的<img src="http://bbs.mjtd.com/static/image/smiley/qq/em06.gif" smilieid="88" alt="" border="0">。请朋友们指点指点。谢谢！

(defun jc(n)<br />     (if(<= n 1)<br />         1.0<br />         (* n<br />      ( jc (1-  n))<br />      )<br />     )<br /> )<br /> <br /> (defun  c:tt()<br /> (jc 5)<br />   )<br /> ;返回120<br /> 函数自身调用硬是脑子转不过了。这个返回结果是：120真不知道怎么弄出来的<img src="http://bbs.mjtd.com/static/image/smiley/qq/em06.gif" smilieid="88" alt="" border="0">。请朋友们指点指点。谢谢！

ZZXXQQ

这是计算阶乘f(n)=n!=1*2*3*...*n

雪山飞狐_lzh

你可以吧递归产生的结果看成数列，即
1！ 2！ 3！ 4！ 5！
该数列的表达式为
a(n) = n*a(n-1) n>1
      = 1        n=1
如 求3！时
调用jc(3) <- 调用jc(2) <- 调用jc(1)
返回  3*2<- 2*jc(1)=2<- jc(1)=1
     

434939575

ZZXXQQ 发表于 2015-3-29 12:10
这是计算阶乘f(n)=n!=1*2*3*...*n

谢谢指点！

434939575

雪山飞狐_lzh 发表于 2015-3-29 12:16
你可以吧递归产生的结果看成数列，即
1！ 2！ 3！ 4！ 5！
该数列的表达式为

多谢指导！经常看到一些大师玩这样的。只能慢慢理解琢磨。

zzyong00

递归调用，关键是找到退出点，你就知道运行过程和结果了

434939575

zzyong00 发表于 2015-3-29 13:45
递归调用，关键是找到退出点，你就知道运行过程和结果了

谢谢！(setq  n 1 )(* n (jc (1- n)))。这样返回1.我认为(1- n)=0 。(jc (1- n))返回1 。还是没透彻。

zzyong00

当然函数返回1时，就开始“收网”了