Question

我试图创建一个函数，如果你查询这个： (color 'dress liste)它应该返回'blue。假设我们为(define liste '((hat . red) (dress . blue) (coat . yellow)))定义了listE
我想我很接近：这就是我所做的：

  (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)))))

找到颜色方案

1 个答案: