（方案）我如何划分这些列表？

Question

如何在方案中实现此功能：

*INPUT: ((1 . 1) (1 . 7))

*OUTPUT: (((1 . 2) (1 . 4) (1 . 6)) ((1 . 3) (1 . 5) (1 . 7)))

基本上我有一个包含两个元素的列表。每个元素也是一个包含两个元素的列表，两个元素都是整数 >= 0 和 <= 0。 8

我必须创建这个：

input ((a1 . b) (a1 . c)) 

output: (if (and (= a1 a2) (odd? b))
          While < b c
             (list (a1 . b+1) (a1 . b+3) (a1 . b+n)...)) 
             (list (a2 . b) (a2 . b+2) (a2 . b+4)...)

Answer 1

“划分列表”

注意：(a . b) 不是一个正确的列表。这是一个缺点或一对。
请参阅下面的不同处理，其中 input 是一个列表，但 left 和 right 是 cons es：

给定输入： ((a1.b)(a2.c))
左边是：（汽车输入）
右边是：（cadr 输入）
a1：（左车）
a2：（汽车右侧）
b：（cdr左）
c: (cdr right)

生成奇数对和偶数对列表：

创建一个起始例程（此处称为夏威夷）来分割输入如上所述。这个启动器将调用一个递归列表生成器，在本例中称为 Hawaii：

;;; ((abscissa0 . start) (abscissa1 . end )) => 
;;;    (Hawaii start end abscissa '() '()) 
;;; When abscissa0 == abscissa1
(define (Hawaiian pairs)
  (let* ((first (car pairs))
     (second (cadr pairs))
     (start (cdr first))
...
(Hawaii start end abscissa0 '() '()))))

正如您所注意到的，Hawaii 是用两个空列表调用的，结果的初始值设定项：奇数列表甚至成对。

Hawaii 例程从完成开始向后计数，根据当前数字是奇数还是偶数开始附加到偶数 的相应奇数 列表中。追加后，它再次调用自身（使用较低的计数），直到当前计数开始。

Hawaii 的第一行和最后一行：

;;; start end abscissa null null => (list odds evens)
;;; odds  = (list (abscissa . start) ... (abscissa . start+2)  ...)
;;; evens = (list (abscissa . start+1) ... (abscissa . start+3) ...)
(define (Hawaii start current abscissa odds evens)
  ;; Counting backward (start <- current )
  (let((new-el (cons abscissa current)))
    (if (=  current start)
     (list (cons new-el odds) evens)
     (let* ((next...
            (elist...
              ... ))
  (Hawaii start next abscissa olist elist)))))

要完成 Hawaii 循环，请添加三行（每个“...”各 1 行）：
1. 计算next，即下一次迭代中current的值。
2. 计算olist：如果当前为奇数，则olist = new-el + 赔率;否则，这只是赔率，再次。
3. elist 相同。将 new-el 附加到偶数或仅传递偶数，具体取决于当前是否为偶数。