tabToSpace tabSize s = tabToSpace' tabSize s where tabToSpace' _ "" = "" tabToSpace' 0 s = tabToSpace' tabSize s tabToSpace' i ('\t':cs) = (take i $ repeat ' ') ++ (tabToSpace' tabSize cs) tabToSpace' i (c:cs) = c:(tabToSpace' (i-1) cs)

import System cat :: [String] -> IO () cat [] = getContents >>= putStr -- 標準入力 cat [f] = catch (readFile f >>= putStr) -- 任意のファイル(例外捕捉付き) (\e -> putStr ("CANNOT OPEN " ++ f ++ "\n")) cat (f:fs) = cat [f] >> cat fs -- 複数…