在Haskell中移位文本文件

我在這裏練習http://book.realworldhaskell.org/read/functional-programming.html。我需要轉置文本文件的問題的解決方案似乎需要大量的CPU時間。如果可以的話，我如何改進算法以下的算法，使其更少地佔用CPU。在Haskell中移位文本文件

import System.Environment (getArgs) 
import Data.Char(isAlpha) 
interactWith function inputFile outputFile = do 
    input <- readFile inputFile 
    writeFile outputFile (function input) 

main = mainWith myFunction 
    where mainWith function = do 
      args <- getArgs 
      case args of 
      [input,output] -> interactWith function input output 
      _ -> putStrLn "error: exactly two arguments needed" 

     -- replace "id" with the name of our function below 
     myFunction = transpose 

transpose :: String -> String 
transpose input = tpose (lines input) 

tpose [] = [] 
tpose xs = concat (map (take 1) xs) ++ "\n" ++ tpose (map (drop 1) xs)

來源

2012-03-22 yasar

的Data.List模塊包含一些有用的功能，諸如transpose :: [[a]] -> [[a]]。在Prelude中還有lines和unlines，它們在String和[String]之間轉換（通過打破換行符）。

因此，基本上，你可能要像

main = do 
    [input,output] <- getArgs 
    interactWith (unlines . transpose . lines) input output

來源

2012-03-22 04:38:50

這是否使速度更快？ – 2012-10-22 11:32:19

最多跳過第8章，其中談到了字符串數據類型多麼的低效，並提出用字節串來代替。還有Data.Text，如果你的文件是unicode的話。

來源

2012-03-22 05:02:55

在Haskell中移位文本文件

回答

相關問題