P30 (*) Transposing a Matrix

问题描述

原题目没有P30，这道题来源于Common LISP Recipes。题目要求对矩阵进行矩阵，如

$$\begin{pmatrix} 11 & 12 & 13 & 14 \\ 21 & 22 & 23 & 24 \\ 31 & 32 & 33 & 34 \\ \end{pmatrix}^T = \begin{pmatrix} 11 & 21& 31 \\ 12 & 22 & 32 \\ 13 & 23 & 33 \\ 14 & 24 & 34 \\ \end{pmatrix}$$

sash> (transpose '((11 12 13 14)
                   (21 22 23 24)
                   (31 32 33 34)))
sash> ((11 21 31)
       (12 13 14)
       (22 23 24)
       (32 33 34))

解法

用map能比较简单地实现。

(define transpose
    (lambda (matrix)
      (cons (map car matrix)
            (map cdr matrix))))