使用Scheme中的成员函数

Question

这是我的代码：

   (define p (read(open-input-file "starbucks4.sxml")))

(define get-artifacts
  (lambda (l)
   (member (list 'opm:artifact) l)))



  (get-artifacts p)

我被告知成员函数在整个列表中完全搜索。在 .sxml 文档中，有一个复杂的列表，其中包含许多名为“opm:artifact”的元素，但是此方法返回 #f 并且没有列表。

谁能看到我做错了什么吗？

.sxml 文件示例：

      (opm:account ((ref "detailedAccount")))
   "\n            "
   (opm:label ((value "Provide other Beverage")))
   "\n        ")
  "\n    ")
 "\n    "
 (opm:artifacts
  ()
  "\n        "
  (opm:artifact
   ((id "a1"))
   "\n            "
   (opm:account ((ref "detailedAccount")))
   "\n            "
   (opm:label ((value "order")))
   "\n        ")
  "\n        "
  (opm:artifact
   ((id "a2"))
   "\n            "
   (opm:account ((ref "detailedAccount")))
   "\n            "
   (opm:label ((value "cash")))
   "\n        ")
  "\n        "

我正在尝试查找所有 opm:artifacts 和关联数据（它是子列表）。

Answer 1

它确实搜索整个列表，但不搜索子列表。

因此，如果您的列表实际上是一个嵌套列表，并且 (opm:artifact) 仅位于其子列表之一中，则 member 将找不到它。

另请注意，您正在查找列表 (opm:artifact)，而不是符号 opm:artifact 或任何包含 opm:artifact 的列表。

编辑：要搜索子列表，您可以执行以下操作：

(define (deep-search x lst)
  (if (empty? lst)
    #f
    (if (equal? x (car lst))
      #t
      (begin
        (if (list? (car lst))
          (let ((r (deep-search x (car lst))))
               (if r
                 r
                 (deep-search x (cdr lst))))
          (deep-search x (cdr lst)))))))

Answer 2

我注意到的第一件事是您将一个元素的列表作为 member 的第一个参数。成员的工作方式如下：

>>> (member 2 '(4 5 2 6 7))
(2 6 7)

您能给我们一个 p 的示例，以及您想要的结果吗？

Answer 3

坚持住，我可以让你的生活变得更轻松。根据您的“starbucks.sxml”文件名，您似乎已经在使用 sxmlracket 包。如果是这样，那么您还可以使用该库的“sxpath”部分来大大简化您的代码：

#lang racket

(require (planet lizorkin/sxml:2:1/sxpath))

(define tree (file->value "/tmp/starbucks.sxml"))

(define artifact-filter (sxpath '(opm:artifact)))

(artifact-filter tree)

这将返回 opm:artifact 节点的列表（包括其中的所有内容）。例如，当我在上面提供的片段上运行它时（加上一堆插入的开放式括号——它们不平衡——我得到了这个：

Welcome to DrRacket, version 5.0.2.1--2010-10-27(41c084c/g) [3m].
Language: racket; memory limit: 512 MB.
'((opm:artifact
   ((id "a1"))
   "\n            "
   (opm:account ((ref "detailedAccount")))
   "\n            "
   (opm:label ((value "order")))
   "\n        ")
  (opm:artifact
   ((id "a2"))
   "\n            "
   (opm:account ((ref "detailedAccount")))
   "\n            "
   (opm:label ((value "cash")))
   "\n        "))

整个 sxml 包的文档真的很糟糕......也许“ “不存在”会是一个更好的词；不过，公平地说，sxml 人员有兴趣支持所有方案，而不仅仅是 Racket，因此他们没有花大量时间以 Racket 格式（Scribble）编写文档当然可以被原谅。