Как передать оператор в функцию схемы

Question

У меня проблемы с функцией схемы.

(define myfun(operator lis)
   (if(null? lis)
     '()
    (cons(operator (car lis)(car lis))myfun(operator (cdr lis))
))))

Функция принимает оператор в качестве параметра и список, например (+'(1 2 3 4)) и ошибка, которую я получаю, когда пытаюсь вызвать функцию: ожидание числа, но получение списка. Итак, мой вопрос, как я могу рекурсивно вызвать функцию с оператором и списком?

ОБНОВЛЕНИЕ: просто нужен знак ' перед оператором.

Answer 1

Просто передайте + в функцию, без кавычек.+ обозначает функцию сложения.

(define (apply-op op x)
  (op x x))

будет выполнять

(apply-op + 2)  ==>  4