旋转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