兰州 电子 网站建设seo在线网站推广

话不多说 先上代码

(defn product [ term a nxt b](defn iter [a result](if (> a b)1  (* (term a) (iter (nxt a) result))))(iter a 1))

跟习题1.30比较起来，就是两个地方不同 乘法不能乘0  必须是1。难度来讲，跟1.30难度是一样的。增加了迭代过程与递归过程两种模式，先搞定迭代模式。

两个合并的话 应该也是可以

(defn product [ term a nxt b f2 defval](defn iter [a result](if (> a b)defval(f2 (term a) (iter (nxt a) result))))(iter a defval))

过程自然是迭代的方式