Question

让我们说,我们就象这样一份清单(其中有许多内容,但方法应当相同):

(define l  ((cons  name  john)
            (cons  sur  asurname)
            (cons  name  george)
            (cons  sur  georgesurname)))

我们能够永远在现有清单中增加更多的内容。最有效的方式是写写出使用人姓名的职称:

例如:

(define display-surname
  (lamdba (name)
   (...)))

这些案件的一般做法是什么? 谁能举出一个榜样/联系?

Answer 1

代表每个记录<代码>(姓名、名称)的最好想法,然后把数据作为一份表格清单处理:

(define lst  (((name . a) (sur . b)) ((name . c) (sur . d))))

在上述代表处,找到一个名字(即姓)与这个词一样简单(假设记录中的每一领域总是在同一职位上发现):

(define display-surname
  (lambda (lst name)
   (cond ((null? lst) #f)
         ((eq? (cdaar lst) name) (cdadar lst))
         (else (display-surname (cdr lst) name)))))

您可以进一步简化(假设记录中的每一领域总是处于相同地位)的方法,将上述数据表述如下,并相应修改<代码> 显示-surname:

(define lst  ((a . b) (c . d)))

(define display-surname
  (lambda (lst name)
   (cond ((null? lst) #f)
         ((eq? (caar lst) name) (cdar lst))
         (else (display-surname (cdr lst) name)))))

这两种做法都是:

(display-surname lst  a)
>  b

(display-surname lst  x)
> #f

友情链接