会员
周边
众包
新闻
博问
闪存
赞助商
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
riverphoenix
导航
博客园
首页
新随笔
联系
订阅
管理
公告
lisp 实现阶乘函数
(define (factorial n) (fact-iter 1 1 n)) (define (fact-iter product counter max-count) (if (> counter max-count) product (fact-iter (* counter product) (+ counter 1) max-count ))) (factorial 3)
posted on
2012-01-29 22:45
riverphoenix
阅读(
296
) 评论(
0
)
编辑
收藏
举报
刷新页面
返回顶部