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

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) это частичный продукт. Вы используете частичную сумму как в расчете суммы, так и в расчете продукта.