更改-在Common Lisp中变为+

debugcn 发表于 Dev

塞德杰

有没有办法将-（减号）功能更改为+（加号）功能？

我的作业是在Macluaurin系列上执行正弦计算

sin(x) = x-(x^3/3!)+(x^5/5!) -(x^7/7!)+(x^9/9!)-...

每篇文章都有不同的符号。这是我的Lisp代码

(defun sinMac (x series n plusminus)
  (cond ((= series 0) 0)
        (t (funcall plusminus
                    (/ (power x n) (factorial n))
                    (sinMac x (- series 1) (+ n 2) plusminus)))))

可以更换plusminus交换标志吗？如果我得到'+函数，则发送'-到下一个递归调用。从那个电话（got '-）我打电话'+，依此类推...

克里斯·杰斯特·杨（Chris Jester-Young）

您可以使用循环列表来完成。像这样：

(defun sin-mac (x series n plus-minus)
  (cond ((zerop series) 0)
        (t (funcall (car plus-minus)
                    (/ (power x n) (factorial n))
                    (sin-mac x (1- series) (+ n 2) (cdr plus-minus))))))

(sin-mac x series 1 '#0=(+ - . #0#))

甚至更好的是，使用labels以下命令包装初始参数：

(defun sin-mac (x series)
  (labels ((recur (series n plus-minus)
             (cond ((zerop series) 0)
                   (t (funcall (car plus-minus)
                               (/ (power x n) (factorial n))
                               (recur (1- series) (+ n 2) (cdr plus-minus)))))))
    (recur series 1 '#0=(+ - . #0#))))

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。