Повторные процедуры значения в схеме

Question

я пытаюсь позвонить и принять значение процедуры с кодом ниже

(define main (x y) ((< x y) (p1 x) (p2 y))) 
(p1 x) returns 'first, (p2 y) returns 'second 

однако в основной нет ничего, чтобы вернуться.

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

Большое спасибо.

Answer 1

Вы определили бы p1 и p2 как:

(define (p1 thing) 'first) 
(define (p2 thing) 'second) 

, а затем main становится:

(define (main x y) 
    (if (< x y) 
     (p1 x) 
     (p2 y))) 

, если вам действительно нужно использовать let и lambda тогда это будет работать:

(define (main x y) 
    (let ((p1 (lambda (thing) 'first)) 
     (p2 (lambda (thing) 'second))) 
    (if (< x y) 
     (p1 x) 
     (p2 y)))) 

Answer 2

Возможно, вы имели в виду это?

(define (main x y) (if (< x y) (p1 x) (p2 y)))