查找配色方案

Question

我正在尝试创建一个函数，如果您查询此函数： (color 'dress liste) 应该 return 'blue。假设为我们定义了 listE (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)))))

查找配色方案

Find color Scheme

scheme

racket