Приложение не процедура (процедура схемы схемы)

Question

Я пытаюсь написать свою упрощенную процедуру карты в R5RS. Короче говоря, он принимает процедуру и два списка и возвращает список с результатами процедуры, называемой каждой парой объектов в двух списках аргументов, до тех пор, пока они не будут пустыми.

Это прекрасно работает для арифметических операторов, таких как:

(map2-rec + '(1 2 3) '(1 2 3 4)) 

Однако, когда я пытаюсь передать анонимную функцию лямбда (возвращаемое значение как моя процедура?), Которая возвращает либо #t или #F , это не работает.

(define (map2-rec proc items1 items2) 
    (if (or (null? items1) (null? items2)) 
     '() 
     (cons (proc (car items1) (car items2)) 
      (map2-rec proc (cdr items1) (cdr items2))))) 


(define (both? proc) 
    (lambda (item1 item2) 
    ((if (and (proc item1) (proc item2)) 
     #t 
     #f)))) 

Специфическая ошибка я получаю в DrRacket является:

application: not a procedure; 
expected a procedure that can be 
applied to arguments 
given: #t 
arguments...: [none] 

Если кто-то может сказать мне, как я могу исправить эту ошибку, я был бы очень рад. Я не могу понять, почему этот код не работает сам.

Answer 1

Существует дополнительная (и ошибочная) пара круглых скобок в both?, окружающая выражение if. Это должно исправить:

(define (both? proc) 
    (lambda (item1 item2) 
    (if (and (proc item1) (proc item2)) 
     #t 
     #f))) 

Теперь ваша процедура работает, как ожидалось:

(map2-rec + '(1 2 3) '(1 2 3 4)) 
=> '(2 4 6) 
(map2-rec (both? even?) '(1 2 3) '(1 2 3 4)) 
=> '(#f #t #f)