Помогите!Схема (программа, которая находит сумму и продукт)

Question

(define sp
  (lambda (l) 
    (if (null? l)
        '(0 1)
        (let ((v (sp (cdr l))))
          (list (+ (car l) (car v)) (* (car l) (car v)))))))

Что не так в моей функции?

Answer 1

Возвращаемое значение из вашей функции sp представляет собой двухэлементный список. Первый элемент (car v) является частичной суммой; второй элемент (cadr v) является частичным произведением. Вы используете частичную сумму как при расчете суммы, так и при расчете продукта.