旋轉矩陣PBMfile哈斯克爾

Question

可能重複：
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)) 

旋轉矩陣，但不起作用。

的結果是一樣的東西

http://imageshack.us/photo/my-images/52/catmc.jpg/

Answer 1

移調操作反向操作之前應該發生。嘗試

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

此外，切換旋轉圖像的尺寸。

Answer 2

您還需要考慮(map reverse)，而不僅僅是transpose和reverse。我認爲((map reverse) . transpose)做你想做的。