expandのバージョン2を作成。プログラムはこんなのですが説明なしでは意味不明。 tabStop = 8 main = do cs <- getContents putStr $ expand cs expand :: String -> String expand cs = concatMap expandTab cs expandTab :: Char -> String expandTab '\t'…