如何從Scheme中的對列表中返回一對？

Question

我有一個列表中有存儲在其中的對。

'((a (b 1)) 
    (b (c 2)) 
    (c (d 3)) 
    (d (e f))) 

(define (compare-unit unit-to-check source) 
    (cond ((null? source) '()) 
     ((equal? (car source) unit-to-check) (car source)))) 

在我的程序中，我想檢查搜索查詢是否相當於列表中的車對，並返回給定的對。

例如，如果搜索查詢有(a x)和(a (b 1))與(a x)有相同的車，我想返回(a (b 1))。

Answer 1

有一個內置的過程，不只是你所需要的 - 這就是所謂的assoc：

(define (compare-unit unit-to-check source) 
    (assoc (car unit-to-check) source)) 

例如：

(define source 
    '((a (b 1)) 
    (b (c 2)) 
    (c (d 3)) 
    (d (e f)))) 

(compare-unit '(a x) source) 
=> '(a (b 1))