主页 / 问题 / 1121633
Accepted
CyberNoble
Asked:2020-05-07 15:52:32 +0000 UTC2020-05-07 15:52:32 +0000 UTC

如何旋转 Haskell 文件的内容

  • 772

需要将文本文件的内容旋转n度（内容可以用任意字符表示） 将矩阵左右旋转90

import Data.List

rotateLeft :: [[a]] -> [[a]]
rotateLeft = reverse . transpose

rotateRight :: [[a]] -> [[a]]
rotateRight = transpose . reverse

但是角度不是90的倍数，我什么都想不出来。是的，这个矩阵只接受数字。从文件中读取矩阵，我扔了一点，但也不是

import System.IO
import System.Environment
main = do
[fileName] <- getArgs
fileSource <- readFile fileName
let fileMatrix = map (\x -> map (\i -> (read i) :: Int) $ words x) $ lines

它抛出一个错误

帮助，好人，学生。我们有 0 个 FP 手册，我们通过触摸完成所有任务。我已经处理这个任务 2 周了。提前谢谢你

haskell

1 个回答

  1. Best Answer

    不要找简单的方法，原理和旋转位图一样

    image :: [[Char]]
image =
  [ "TTTTTTTT EEEEEEEE  SSSSSS  SSSSSSSS"
  , "   TT    EE       SS    SS    SS   "
  , "   TT    EE       SS          SS   "
  , "   TT    EEEEEE    SSSSSS     SS   "
  , "   TT    EE             SS    SS   "
  , "   TT    EE       SS    SS    SS   "
  , "   TT    EEEEEEEE  SSSSSS     SS   "
  ]

getPixel :: [[Char]] -> Int -> Int -> Char
getPixel img x y
  | x >= 0 && x < width && y >= 0 && y < height = img !! y !! x
  | otherwise = ' '
  where
    height = length img
    width = length $ head img

rotate :: Double -> (Double, Double) -> (Double, Double)
rotate a (x, y) = (x * cos a + y * sin a, -x * sin a + y * cos a)

main :: IO ()
main = mapM_ putStrLn $ do
  y <- [0 .. 30]
  return $ do
    x <- [0 .. 40]
    let (x', y') = rotate (pi / 4) (x - 5, y - 2)
    return $ getPixel image (floor x') (floor y')

         T
     TT
      TT
       TT
      TTTT
     TTT TT
    TTT   T
   TTT     EE
    T     EEEE
         EEE EE
        EEE   EE
       EEE E   EE
        E   E   EE
         E   E
          E      SSS
           E    SSSSS
            E   SS  SS
              S  S   SS
              SS  S  SS
               S   S  S
                S  SS   SS
                 SSSS    SS
                  SS      SS
                         SSSS
                        SSS SS
                       SSS   S
                      SSS
                       S

    方形字体不会出现这种失真。 在此处输入图像描述

    • 2

相关问题