Суммируя список номеров в Jess

Question

Я пытаюсь подвести список номеров в Джесс, но я не уверен, о том, как пойти на это:

(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)))) 

Второй, вероятно, будет более эффективным.