球拍列表中的附加项目

Question

我正在使用 Racket 中的列表，并且正在执行添加项目的功能。我做到了

(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，但我不知道该怎么做。有一个主列表，其中有几个列表。我希望所有元素都按位置连接。并且主列表的数量可以是任意的。谢谢

Answer 1

把这个问题分成两部分：

使用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))

球拍列表中的附加项目

Addition items in list Racket

scheme

racket