lisp 实现阶乘函数
2012-01-29 22:45
330 查看
(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)
(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)
相关文章推荐
- 用Haskell实现的阶乘函数
- Javascript实现Lisp列表(list)及操作
- lisp实现自动递归---SICP不确定性计算
- 离散傅里叶变换DFT的推导和lisp实现
- CLisp 8:用LISP的基本规则实现while
- 华为笔试题--LISP括号匹配 解析及源码实现
- CLisp 7:用LISP的基本规则实现if
- newLISP FOOP 类的方法以及实现
- Programming in Emacs Lisp笔记(九)List的实现
- 三种方式实现阶乘函数
- C语言实现的lisp解析器介绍
- 类Lisp解释器JavaScript实现
- 使用Erlang、C和Lisp实现的BigData解决海量移动数据
- map的lisp实现
- SICP1.3 MIT(PLT) Scheme实现(Lisp)
- C语言实现的lisp解析器介绍
- 栈实现阶乘函数
- “foreach”(遍历功能)的C和Lisp实现
- lisp实现的专家系统
- 使用lisp实现SICP约束系统