方案定义 cdr 合同违反预期对给定 '()

Question

给定定义树：

(define tree
  '("S" (("-" ("A" 3333) ("A" 4444))
         ("W" (("+" ("R" 0) ("R" 1))
               ("+" ("R" 1) ("R" 2))
               ("+" ("R" 2) ("R" 3))
               ("+" ("R" 3) ("R" 4))
               ("+" ("R" 4) ("R" 5)))
              (("-" ("R" 0) ("R" 1))
               ("-" ("R" 1) ("R" 2))
               ("-" ("R" 2) ("R" 3))   
               ("-" ("R" 3) ("R" 4))
               ("-" ("A" 1000) ("A" 2000)))))))

我正在尝试访问这些值。执行car 和cdr 对第一个起作用，然后得到其余的，但是当我尝试获得像("A" 1000) 这样的特定值时，我得到了错误：

cdr：违反合同
预期：一对？
给定：'（）。

我已经尝试过(car (cdr (cdr (cdr '(tree)))))、(cdddr tree)，但我总是遇到这个错误。任何有用的提示将不胜感激。

Answer 1

你不能把tree放在一个列表中：'(tree)，那只是一个带有'tree符号的列表，与你之前定义的实际变量的值没有关系。要访问所需的元素，请执行以下操作：

(car (cdr (car (car (cdr tree)))))
=> '("A" 3333)

另外，我想建议您重新考虑您表示和/或遍历信息的方式，正如您所见，从如此复杂的树中提取数据非常困难......