haskell - 在 Haskell 中旋转矩阵

Question

我有这种类型的 Mat a = [[a]] 来表示 Haskell 中的矩阵。
我必须编写一个旋转矩阵的函数，例如 [[1,2,3],[0,4,5] ， [0,0,6]] 将变成 [[3,5,6],[2,4,0],[1,0,0]] 所以我做了这个:

rotateLeft :: Mat a->Mat a
rotateLeft [[]] = []
rotateLeft (h:t) = (map last (h:t)):(rotateLeft (map init (h:t)))

但输出是

[[3,5,6],[2,4,0],[1,0,0],[*** Exception: Prelude.last: empty list

我不知道在基本情况下放什么来避免这种异常。
感谢任何帮助。

Answer 1

您的列表将不会为空，而是一个空列表，您可以执行以下操作以根据第一个子列表进行模式匹配(假设Mat确保数据结构的一致性)

rl [] = []
rl ([]:_) = []
rl m = map last m : (rl (map init m))

rl mat
[[3,5,6],[2,4,0],[1,0,0]]

你错过了第二种情况。