[LISP函数]：連續自然數之和. 冪和階乘

[复制链接]

taner

已领礼包: 2个

财富等级: 恭喜发财

发表于 2005-11-25 07:59:41 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

[php];;; ==================================================================
(defun sub (n)
  (cond
((zerop n)
   0
)
(t
   (+ n (sub (1- n)))
)
  )
)
;;; ==================================================================
(defun power (m n)
  (cond
((zerop n)
   1
)
(t
   (* m (power m (1- n)))
)
  )
)
;;; ==================================================================
(defun factorial (n)
  (cond
((zerop n)
   1
)
(t
   (* n (factorial (1- n)))
)
  )
)
;;; ==================================================================[/php]

zerop, defun, factorial