haskell 基础题解（23）

矩阵的旋转

【题目】给定一个矩阵，求它顺时针方向旋转90度后的矩阵（注意，不是转置）。
例如，3x4的矩阵，旋转后的效果如下：

如果硬去计算，(i,j) 变换后的坐标，公式还真有点难算。。。。
haskell 擅长组合：
$$旋转=转置+镜像$$
看代码：

---矩阵旋转
import Data.List (transpose)

--- 对一个矩阵，求它的左右镜像
jing :: [[a]] -> [[a]]
jing xs = map reverse xs

--- 对一个矩阵，求它的顺时针旋转90度后的矩阵
xuan_zhuan :: [[a]] -> [[a]]
xuan_zhuan = jing . transpose

--不足2位前补空格
bu2 :: String -> String
bu2 x = reverse . take 2 . reverse $ "  " ++ x 

--变成漂亮的形式，以便打印
pp :: [[Int]] -> [String]
pp = map $ unwords . map (bu2 . show)

----矩阵示例数据
m0 = [[1,2,3,4],[5,6,7,8],[9,10,11,12]]

main = do
    putStrLn . unlines . pp $ m0
    putStr . unlines . pp . xuan_zhuan $ m0

这是组合的威力。
haskell的强大在于把函数像 Int, String 一样进行种种捏压塑形。
函数的复合可以说是最简单，最常见的手段了。

问题：
如何实现逆时针转？

答1： 顺时针转 3 次

答2：先做镜像，再做转置

问题：
如果要求上下镜像怎么算呢？

答：。。。。。先接个电话。。。