병합 정렬 출력 - 체계

Question

술어와 실제 값 목록을 취하는 병합 정렬 함수가 있습니다. 그런 다음 술어에 따라 정렬합니다. 예 :

(merge-sort > '(1 7 4 6)) 
    ---> (7 6 4 1) 

내 질문은 협회 목록 주어진다

:

(define *Mark* 
    '((age . 20) 
     (gender . male)) 

(define *Judith* 
    '((age . 30) 
     (gender . female)) 

(define *Elliot* 
    '((age . 40) 
     (gender . male)) 

, 정렬되지 않은 목록 (마크 엘리엇 주디스)를 만드는 데 사용 된 방법, 병합 정렬

(merge-sort > '(20 40 30)) ---> (40 30 20) 

에서 자신의 나이를 사용하여

주문 목록을 출력 할 수 있습니까?

(Elliot Judith Mark) 

Answer 1

(merge-sort (lambda (a b) 
       (define (get-age x) 
       (cdr (assq 'age x))) 
       (> (get-age a) (get-age b))) 
      (list *Mark* *Judith* *Elliot*))