文章/答案/技术大牛

发布

问列表中的附加项目
EN

Stack Overflow用户

提问于 2022-03-20 18:59:49

回答 1查看 86关注 0票数 0

我正在处理球拍中的列表，我正在做一个添加项目的函数。我做到了

(define (iter lst [acc '()])
  (if (null? lst)
      (append (list acc))
      (iter10 (cdr lst) (append acc (caar lst)))))

我的产出是：

(iter10 '(((1 2)(3 4)(5 6))((7 8)(9 10)(11 12))))
'((1 2 7 8))

但我想要产出：

(iter10 '(((1 2)(3 4)(5 6))((7 8)(9 10)(11 12))))
'((1 2 7 8) (3 4 9 10) (5 6 11 12))

(iter10 '(((1 2)(3 4)(5 6))((7 8)(9 10)(11 12))((1 2)(3 4)(5 6))))
'((1 2 7 8 1 2) (3 4 9 10 3 4) (5 6 11 12 5 6))

我知道这是因为caar的使用，但我不知道该怎么做。有一个主列表，其中有几个列表。我希望所有元素都能通过位置连接起来。主名单的数量可能是任意的。谢谢

scheme

racket

回答 1

Stack Overflow用户

回答已采纳

发布于 2022-03-20 19:37:26

将此问题分为两部分：

使用apply map成语创建具有相同位置的列表组：

> (apply map list '(((1 2)(3 4)(5 6))((7 8)(9 10)(11 12))))
'(((1 2) (7 8)) ((3 4) (9 10)) ((5 6) (11 12)))

使用append将组中的所有列表追加到一个列表中：

> (map (lambda (group) (apply append group))
       '(((1 2) (7 8)) ((3 4) (9 10)) ((5 6) (11 12))))
'((1 2 7 8) (3 4 9 10) (5 6 11 12))

然后将这两部分合并成一个函数：

(define (iter10 lst)
  (map (lambda (group) (apply append group))
       (apply map list lst)))

测试：

> (iter10 '(((1 2)(3 4)(5 6))((7 8)(9 10)(11 12))))
'((1 2 7 8) (3 4 9 10) (5 6 11 12))

> (iter10 '(((1 2)(3 4)(5 6))((7 8)(9 10)(11 12))((1 2)(3 4)(5 6))))
'((1 2 7 8 1 2) (3 4 9 10 3 4) (5 6 11 12 5 6))

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/71549763

复制

相似问题

问列表中的附加项目
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问列表中的附加项目EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问列表中的附加项目
EN