lisp - 在 Jess 中对数字列表求和

Question

我正在尝试在 Jess 中对数字列表求和，但我不确定如何去做:

(deffunction sumAll ($?n) (return (+ ?n)))

(sumAll 1 2 3)

上面的代码不起作用。我应该怎么做？

Answer 1

这里有两种方法。您可以通过将函数调用构建为字符串并让解析器重新解析它来完成单行代码:

(deffunction sumAll($?args)
    (eval (str-cat "(+ " (implode$ ?args) ")" )))

或者您可以明确地进行迭代。

(deffunction sumAll($?args)
    (bind ?sum 0)
    (foreach ?num ?args
        (bind ?sum (+ ?sum ?num))))

第二个可能会更有效率。