[proektant-minsk]

Дано:
Список типа (list a1 a2 a3 ... an), где а - целое или вещественное число.

Найти: а1 + а2 + а3 + ... + аn, не используя length и repeat, и прочих циклов.

Примечание: Возможно в VisualLisp уже есть готовые функции для этого? Было бы интересно посмотреть как эту задачу можно решить при помощи рекурсии.

Пример: (sum_list (list 1 10 100 1000 0.5) ) -> 1111.5

Заранее спасибо, тем кто отзовется

[Дима_]

Код:

[Выделить все]

 (apply '+ (list a1 a2 a3...))

Было бы интересно посмотреть как эту задачу можно решить при помощи рекурсии.

Код:

[Выделить все]

 (defun plus (lst) (if lst (+ (car lst) (plus (cdr lst))) 0))

[WOL4OHOK]

Уважаемый Дмитрий, не могли бы вы объяснить последнию строку? ((defun plus (lst) (if lst (+ (car lst) (plus (cdr lst))) 0)))

Лисп тока начал изучать, че то не соображу как она работает.

[Дима_]

Код:

[Выделить все]

 (defun plus (lst) ; объявляем функцию Plus
  (if lst  ; есть ли в списке что-нибудь
      (+ (car lst) ;если да то прибавляем к первому элементу списка
         (plus (cdr lst))) ;результат "свежеобъявленной" функции plus от списка без первого элемента
      0)) ;если в списке ничего нет то возращаем ноль(к которому добавятся все предудущие аргументы)

таким образом - если "развернуть" рекурсию от (plus '(1 2 3 4 5)) получаем 1+2+3+4+5+0

[WOL4OHOK]

Огромное спасибо, доперло. =)

[Oliver_88]

Код:

[Выделить все]

 (eval (cons '+ (list a1 a2 a3 ... an)))