회전 매트릭스 PBMfile 하스켈

Question

가능한 중복 :

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

:

내가이 데이터 형식이
Rotate Image .pbm Haskell

내가 하스켈에서 회전 행렬에 대한 도움이 필요

및 내 기능 나타날

'X'및 'Y'는 (아마도 기능을 수행 할 수 있습니다) 각각 colums 행의 수이다

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

. 예를 들어

:

(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)이 당신이 원하는 것을한다고 생각합니다.