1

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

聊天机器人中的每个列表元素都有字符串。我正在尝试使用不同的列表对这些字符串进行分类，这些列表都存储在一个名为 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 chatbot) 更改为：

(third (car chatbot))

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

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

现在，我知道（第三个）需要一个列表（实际上是一对）才能工作；car/cdr 和类似功能也是如此。毕竟我没有给它一个清单吗？我现在真的很困惑。

我只是从 Scheme 和功能范式开始，所以我可能遗漏了一个基本的东西。如果您能向我解释发生了什么，那真的会对我有所帮助。

提前致谢。

4

1 回答 1

1

关。问题是您滥用'.

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

因此，您实际上不是插入列表greetings、cheerUpPhrases、congratsPhrases和didNotUnderstand，而是将它们按字面意思作为符号插入。

有两种简单的方法可以解决这个问题。您可以使用 quasiquote`和 unquote ,，也可以直接使用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"))
于 2018-04-12T22:40:36.623 回答