回転マトリックスPBMfile Haskellは

Question

可能性の重複：

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

：
Rotate Image .pbm Haskell

私は2のデータ型を持っているHaskellの

に回転行列についてのヘルプが必要

と私の機能「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

また、も考慮する必要があります。transposeとreverseではありません。私は((map reverse) . transpose)があなたが望むことをすると思います。