Устранить лямбда в схеме?

Question

Мне нужно устранить эту схему лямбда-схемы для моего школьного задания.

Любые идеи, как это осуществить?

(define (foo x) 
(letrec 
    ((h 
    (lambda (y z) 
     (cond 
     ((null? y) 'undefined) 
     ((null? (cdr y)) (car z)) 
     (else (h (cddr y) (cdr z))) 
     )))) 
    (h x x)) 
) 

Answer 1

Ну, вы могли бы заменить lambda выражение в letrec с внутренним определением:

(define (foo x) 
    (define (h y z) 
    (cond 
     ((null? y) 'undefined) 
     ((null? (cdr y)) (car z)) 
     (else (h (cddr y) (cdr z))))) 
    (h x x)) 

... Или вы могли бы извлечь h процедуру вне foo, как процедура хелперов. В любом случае результат будет таким же.