如何在方案中创建列表列表？

Question

我可能在 R5RS 文档中遗漏了这一点，但如何在（鸡）方案中创建列表列表？我希望能够获取一个列表，a， invoke (list-ref a b)，将结果分配给c，然后 invoke (list-ref c d)，其中b和d是索引值。

编辑：为了澄清起见，假设我有这些列表：

(define citrus (list "oranges" "limes"))
(define apples (list "macintosh" "rome" "delicious"))

然后我想创建一个fruit用citrus和apples作为列表条目调用的列表。

Answer 1

以下是创建列表列表的方法：

(list (list 1 2) (list 3 4))   

或者更简单：

'((1 2) (3 4))

现在，如果您已经将其他子列表定义为单独的列表，请将它们放在外部列表中list再次调用它们：

(define the-first  (list 1 2))
(define the-second (list 3 4))
(define list-of-lists (list the-first the-second))
list-of-lists
=> '((1 2) (3 4)) 

要访问给定两个索引的位置，请执行以下操作 - 请记住，索引是从零开始的：

(define lst '((1 2) (3 4)))
(list-ref (list-ref lst 1) 0)
=> 3

因此，问题中的第一个示例如下所示：

(define a '((1 2) (3 4)))
(define b 1)
(define c (list-ref a b))
(define d 0)
(list-ref c d)
=> 3

第二个示例（编辑后）将如下所示：

(define citrus (list "oranges" "limes"))
(define apples (list "macintosh" "rome" "delicious"))
(define fruit (list citrus apples)) ; here's the list of lists

现在，要首先访问一个元素，我们必须传递最外层列表的索引（假设我们想要苹果，它们位于1最外层列表的索引处），然后是最内层列表的索引（假设我们想要一个 macintosh，它位于0苹果子列表中的索引处）：

(list-ref (list-ref fruit 1) 0)
=> "macintosh"