汽车/CDR 参数是列表.右

Question

我在Scheme中列出了一个名为chatbot的字符串列表。

聊天机器人中的每个列表元素都有字符串。我正在尝试使用不同的列表对这些字符串进行分类，这些列表都存储在一个名为聊天机器人的大列表中。(抱歉冗余(

为了清楚起见，以下是执行此操作的代码：

(define greetings '("string 1"
                    "string 2"
                    "string 3"
                    "string 4"))
(define cheerUpPhrases '("string 5"
                         "string 6"))
(define congratsPhrases '("string 7"
                          "string 8))
(define didNotUnderstand '("string 8"
                           "string 9"
                           "string 10"))
(define chatbot '(greetings cheerUpPhrases congratsPhrases didNotUnderstand))

我真的认为这没关系。但后来，在一个函数中，我想得到"字符串 3"，所以我尝试这样做：

(caddar chatbot)

然后得到这个错误：

caddar: contract violation
expected: (cons/c (cons/c any/c (cons/c any/c pair?)) any/c)
given: '(greetings cheerUpPhrases congratsPhrases didNotUnderstand)

不太确定这意味着什么，我把(caddar聊天机器人(改成了：

(third (car chatbot))

最后，我得到了这个错误：

third: contract violation
expected: list?
given: 'greetings

现在，我明白(第三个(需要一个列表(实际上是对(才能工作;car/cdr 和类似的功能也是如此。我终究不是给它一个清单吗？我现在真的很困惑。

我只是从Scheme和函数范式开始，所以我可能错过了一个基本的东西。如果你能解释一下发生了什么，那真的会对我有帮助。

提前谢谢。

Answer 1

关闭。 问题是你滥用'.

你看，'(a b c)不会扩展到类似(list a b c)的东西，而是扩展到类似(list 'a 'b 'c)的东西。

因此，您不是插入列表greetings、cheerUpPhrases、congratsPhrases和didNotUnderstand，而是将它们作为符号插入。

有两种简单的方法可以解决这个问题。您可以使用准引用`和取消引用,，或者您可以直接使用list。将代码重写为使用 list(并修复损坏的"string 8"会得到：

(define greetings '("string 1"
                    "string 2"
                    "string 3"
                    "string 4"))
(define cheerUpPhrases '("string 5"
                         "string 6"))
(define congratsPhrases '("string 7"
                          "string 8"))
(define didNotUnderstand '("string 8"
                           "string 9"
                           "string 10"))
(define chatbot (list greetings cheerUpPhrases congratsPhrases didNotUnderstand))

现在，您可以看到chatbot变量包含您期望的实际列表：

> chatbot
'(("string 1" "string 2" "string 3" "string 4") ("string 5" "string 6") ("string 7" "string 8") ("string 8" "string 9" "string 10"))