旋转矩阵 PBMfile Haskell [重复]答案

【问题标题】：Rotation Matrix PBMfile Haskell [duplicate]旋转矩阵 PBMfile Haskell [重复]
【发布时间】：2012-05-02 06:00:20
【问题描述】：

可能重复：
Rotate Image .pbm Haskell

我需要有关 haskell 中的旋转矩阵的帮助

我有 2 种数据类型：

data RGBdata= RGB Int Int Int
data PBMfile= PBM Int Int [[RGBdata]]

我的函数接收：

spin :: PBMfile -> PBMfile
spin (PBM x y l) = (PBM x y ((transpose . reverse) l))

其中 'x' 和 'y' 分别是列数和行数（也许可以帮助完成该功能）。

例如：

(PBM 2 2 [[(RGB 0 255 255),(RGB 255 0 0)],[(RGB 255 255 255),(RGB 255 0 0)]])

我尝试使用反向和转置的组合向左旋转 90°，但图像结果错误。

我试试

spin :: PBMfile -> PBMfile
spin (PBM x y l) = (PBM x y ((reverse . transpose) l))

和

spin :: PBMfile -> PBMfile
spin (PBM x y l) = (PBM x y ((transpose . reverse) l))

和

spin :: PBMfile -> PBMfile
spin (PBM x y l) = (PBM x y (((map reverse) . transpose) l))

旋转矩阵但不起作用。

结果是这样的

【问题讨论】：

【解决方案1】：

转置操作应该发生在反向操作之前。试试

spin (PBM x y l) = (PBM y x ((reverse . transpose) l))

旋转图像的尺寸也会切换。

【讨论】：

【解决方案2】：

您还需要考虑(map reverse)，而不仅仅是transpose 和reverse。我认为((map reverse) . transpose) 可以满足您的需求。

【讨论】：