方案移調矩陣

Question

我有這樣的代碼方案：

(define transpose2      ;1 
(lambda (A T)       ;2 
    (if (pair? (car A))     ;3 
    (transpose2       ;4 
    (map cdr A) (cons (map car A) T) ;5 
    )         ;6 
    (reverse T)       ;7 
)          ;8 
)          ;9 
)          ;10 

我聽不太懂系NR 5.如何在這條線最終導致變調給矩陣創建一對？

(define transpose        ;1 
(lambda (A)          ;2 
    (transpose2 A `())        ;3 
)            ;4 
)            ;5 

先前的功能transpose2此函數和執行。例如：

(display (transpose '((1 2) (3 4) (5 6)))) 
(display (transpose '((3 2 1) (2 1 1) (3 1 1)))) 

給出的結果：

((1 3 5) (2 4 6)) 
((3 2 3) (2 1 1) (1 1 1)) 

Answer 1

這裏有兩個參數：A，你原來的矩陣，T ，你的累加器。

在第3行，我們檢查A的第一個元素是否是列表，例如，形式爲'(1)。如果是這樣，那麼我們遞歸，將A減少一列(map cdr A)並且將每個A的第一個成員累積到T。當我們最終耗盡我們的清單時，我們會顛倒我們的累加器並將其返回。

如果將第3行的條件替換爲(not (empty? A))，代碼可能會稍微清晰一些。

例跟蹤：

(transpose '((1 2) (3 4) (5 6))) 
-> (transpose2 '((1 2) (3 4) (5 6)) '()) 
-> (transpose2 (map cdr A) (cons (map car A) T)) 
-> (transpose2 '((2) (4) (6)) '((1 3 5))) 
-> (transpose2 '(()()()) '((2 4 6) (1 3 5))) 
-> (reverse '((2 4 6) (1 3 5))) 
-> '((1 3 5) (2 4 6))