схема - сделать круг в нетерпении метода

Question

В следующем коде мы строим круг на схеме:

 (define make-circle (lambda (x-center y-center radius)
(cons 'circle 
(lambda (m)
        (cond ((eq? m 'x) x-center)
                  ((eq? m 'y) y-center)
        (else radius))))))

Что означает переменная m? значение - откуда мы получаем m и что означает, например, cond: "((eq? m 'x) x-center)".

Answer 1

m наиболее вероятно означает «сообщение». Его можно использовать для извлечения соответствующих полей структуры данных круга, например,

(define my-circle (make-circle 1 2 3))

; cdr is here because circle is a cons of 'circle and lambda, 
; better abstract it out in real code
((cdr my-circle) 'y) 

приведет к 2. Анонимная функция (лямбда) проверяет m, чтобы выяснить, какое поле вы хотите получить.