Intertwine两个列表

Question

如何合并两个长度相等的列表，创建一个交织元素列表？

例如，列表2, 4, 6和1, 3, 5应在球拍中产生2, 1, 4, 3, 6, 5。

我很难搞清楚这一点。

Answer 1

这类问题的一般方法是解决第一个元素的问题，然后为其余的问题进行递归。如果你解决这个问题：

(zip '(2) '(1)) 

那么递归看起来像这样（与终止条件表示在前）：

(define (zip list1 list2) 
    (cond ((null? list1) list2) 
     ((null? list2) list1) 
     (else (cons (car list1) 
        (cons (car list2) 
          (zip (cdr list1) (cdr list2))))))) 

> (zip '(a b c) '(1)) 
(a 1 b c) 
> (zip '(a b c) '(1 2 3)) 
(a 1 b 2 c 3) 
> (zip '(a) '(1 2 3)) 
(a 1 2 3) 

注意两个null?条款。这允许list1或list2是不同的大小;最后会留下什么。

Answer 2

如果你正在寻找学习电池包括球拍方面：

#lang racket 
(define (intertwine L1 L2) 
    (flatten (map cons L1 L2))) 

快速测试。

> (intertwine '(2 4 6) '(1 3 5)) 
'(2 1 4 3 6 5) 

注意作品在同等大小的名单的情况下，每提出的问题。不会像@ GoZoner的答案那样处理长度差异。

重新实现函数是练习小规模编程的好方法。学习图书馆将会提高生产力和更简洁的代码。恕我直言