压缩和排序问题

Question

我在Scheme中找到了用于压缩的代码：

(define zip
  (lambda (leftList rightList)
    (if (null? rightList) 
      leftList 
      (if (member (car rightList) leftList) 
        (zip leftList (cdr rightList)) 
        (zip (append leftList (list (car rightList))) (cdr rightList)))))) 

=> (zip '(1 4) '(2 3))
   (1 4 2 3)

但我想对结果进行排序：

=> (zip '(1 4) '(2 3))
   (1 2 3 4)

Answer 1

您正在寻找的函数不叫zip；这称为合并。既然这是一个家庭作业问题，提供解决方案是不负责任的。我只能提供这个：

给定两个已排序的列表，将它们组合成已排序的新列表的最简单方法是什么？好吧，每个列表中的第一个元素（列表的 car）是其自身列表中最小的元素，因此通过比较它们，您可以知道哪个是最小的两个< /em> 列出。然后，使用递归来合并剩余的内容。