在Scheme中查找列表中的元素

Question

我是计划的初学者，并试图弄清楚它是如何运作的；所以我想写一个基本代码： 首先，我有一个定义集：邮政编码（邮政编码城市州）

(define zipcodes '(
 (96774 ookala hawaii)
 (90001 losangeles california)
 (90263 malibu california)
 (10044 newyork newyork)
 ))

我尝试编写一个输入邮政编码并返回城市和州名称的函数，例如：

 >(find '10044)
 (list 'newyork 'newyork)

 >(find '99999)
 empty because there is not zipcode like that.

非常感谢...

我不允许使用 LET 函数

Answer 1

(define filter
   (lambda (proc lst)
       (cond ((null? lst) '())
             ((proc (car lst)) (cons (car lst) (filter proc (cdr lst))))
             (else
                (filter proc (cdr lst))))))

(define find-zip
   (lambda (zip lst)
      (define match (filter (lambda (item) (= zip (car item))) lst))
      (if (null? match)
          '()
          (cdar match))))

(define (find zip)
    (find-zip zip zipcode))

我认为这对你有用。过滤器会将其第一个参数（过程）应用于其第二个参数中的每个项目，该参数需要是一个列表。第一个参数需要为其传递的每个项目返回一个布尔值。然后，过滤器将返回一个列表，其中包含应用第一个参数时返回 true 的所有项目。否则，它返回一个空列表。

在这种情况下，您传递的列表中的每个项目本身就是一个包含 3 个项目的列表，因此它将该列表中的第一个项目与您要查找的邮政编码进行比较。如果匹配，则返回 true。因此，如果邮政编码在列表中，它将返回三项子列表。然后我们检查是否有空列表，如果是，则返回一个空列表。否则，我们将使用汽车的 cdr 来获取您想要的城市和州。

Answer 2

好吧，你基本上可以只过滤邮政编码列表，我在下面概述了一些代码（我会以不同的方式编写它，除了我不知道在 RnRS 中定义的内容之外你还可以使用什么）。

(define find-zip
  (lambda (zip codelist)
   (if (empty? codelist) empty
    (if (= zip (car (car codelist)) (list (cadr (car codelist)) (caddr (car codelist)))
        (find-zip zip (cdr codelist))))))

如果您使用 let 可能会更好，而且我认为大多数实现都有一个过滤器函数，可以让您做得更好。

Answer 3

使用关联

> (assoc 90001 zipcodes)
(90001 losangeles california)
> (cdr (assoc 90001 zipcodes))
(losangeles california)