Question

这就是我写的：

(: mmm : (Listof Any) (Listof Any) -> (Listof Any))
(define (mmm list1 list2)
  (cond [(or (null? list1) (null? list2)) null]
        (and (cons (first list1) (first list2)) (mmm (rest list1) (rest list2)))))

我会举个例子：

list1:  a b c
list2:  1 2 3
answer: ((a 1) (b 2) (c 3))

编辑它们的大小相同

Answer 1

如果您被允许使用map，则可以使用：

(define (mmm lst1 lst2) (map (lambda (x y) (list x y)) lst1 lst2))

Answer 2

您的代码存在一些问题：

基本情况可能是也可能不对 - 如果输入列表保证大小相同，那就没关系。如果它们的大小不同，请参阅@ Sylwester的建议答案
第二个条件应以else开头（因为它是最后一个且条件是互斥的），而不是and
您没有正确构建输出列表。要添加的新元素是 list ，其中包含两个输入列表的第一个元素，并且必须cons调用递归的结果

要修复它们，请尝试此操作 - 假设输入列表长度相等：

(define (mmm list1 list2)
  (cond [(or (null? list1) (null? list2)) null]
        [else (cons (list (first list1) (first list2))
                    (mmm (rest list1) (rest list2)))]))

现在程序按预期工作：

(mmm '(a b c ) '(1 2 3))
=> '((a 1) (b 2) (c 3))

Answer 3

如果您知道列表大小相同，那么它就变得简单：

(define (mmm list1 list2) (map list list1 list2))

注意：如果您真正想要的话，请将map list替换为map cons。您的代码使用了cons，但您的结果示例表明list就是您想要的。

我需要在Scheme中合并两个列表，从每个列表中取一个元素

3 个答案: