Написание функции с использованием лямбда и применить

Question

Я пытаюсь написать функцию, которая принимает аргумент, который по сути является функцией, и возвращает обратное значение этой функции.Я должен добиться этого с помощью лямбды и применять.Вот то, что я имею до сих пор ... это не работает в данный момент, потому что я не могу понять, как определить лямбда-функцию, которая будет принимать любое количество аргументов.Любая дополнительная помощь приветствуется.

(define foobar (lambda (F) (lambda x(apply not (map x F)))))

Пример вывода:

((L3 <) 4 3) -> # t

((L3 <) 34) -> # f

((L3 <) 3 3) -> # t

((L3 (L3 <)) 3 4) -> # t

((L3 (L3 <)) 4 3) -> # f

Answer 1

Вот простая реализация функции negate:

;; negate : (Any * -> Boolean) -> (Any * -> Boolean)
(define (negate f)
  (lambda args
    (not (apply f args))))