Найти цветную схему

Question

Im пытается создать такую ​​функцию, что если вы ответите так: (color 'dress liste) он должен вернуть 'blue. при условии, что listę определяется для нас (define liste '((hat . red) (dress . blue) (coat . yellow)))
Я думаю, что я нахожусь близко: вот что я сделал:

(define (color x List1) 

    (cond (((null? List1) '()))   

       ((equal? x (caar List1) (cdar List1)))   

       (else (color x (cdr List1)))) 
      ) 

Answer 1

Ваш реализации функции assoc. Ваш код требовал некоторой коррекции его скобок. Сравнить с:

(define (color x List1) 
    (cond ((null? List1) '())  
     ((equal? x (caar List1)) (cdar List1)) 
     (else (color x (cdr List1)))))