旋轉Haskell中的char矩陣圖像

Question

我目前正在爲我的類進行分配，其中一個要求是創建一個名爲rotate90的函數。該功能基本上帶有[[Char]]並順時針旋轉90度。

例如：

type Picture = [[Char]] 
pic :: Picture 
pic = [ "123", 
    "456", 
    "789" ] 

變爲：

[ "741", 
    "852", 
    "963" ] 

我的代碼到目前爲止看起來是這樣的：

rotate90 :: Picture -> Picture 
rotate90 (x:xs) 
    | (x:xs) == []   = [] 
    | xs == [] && x /= [] = formRow ([[]]) (formCol x) 
    | xs /= []    = formRow (rotate90 xs) (formCol x) 


formCol :: [Char] -> [[Char]] 
formCol y = [[a] | a <- y] 

formRow :: [[Char]] -> [[Char]] -> [[Char]] 
formRow (x:xs) (y:ys) 
    | xs == [] || ys == [] = (x++y):[] 
    | otherwise    = (x++y):formRow xs ys 

現在只打印第一個 「行」該矩陣的例子是「741」。 如何讓它打印剩下的部分？

Answer 1

在Data.List.transpose方面的簡單實現是

-- | Rotate clockwise 
cw = map reverse . transpose 
-- | Rotate counter-clockwise 
cw = reverse . transpose 

移調您的原始圖片債收益率

147 
258 
369 

和扭轉每一行導致旋轉圖片

741 
852 
963 

一般情況下，你可以表達任意方向的鏡像和旋轉ns使用以下三種功能的組合：

transpose 
map reverse -- mirror left <-> right 
reverse -- mirror top <-> bottom