はじめてのHaskell(9)

catn

main = do cs <- getContents
          putStr $ numbering cs

numbering :: String -> String
numbering cs = unlines $ map format $ zipLineNumber $ lines cs

zipLineNumber :: [String] -> [(Int, String)]
zipLineNumber xs = zip [1..] xs

format :: (Int, String) -> String
format (n, line) = rjust 6 (show n) ++ " " ++ line

rjust :: Int -> String -> String
rjust width s = replicate (width - length s)' ' ++ s

関数

関数 概要
zip タプルを作る:(x, x)
show 値xを文字列に変換する
show::(Show a) => a -> String

参考文献

ふつうのHaskellプログラミング ふつうのプログラマのための関数型言語入門

ふつうのHaskellプログラミング ふつうのプログラマのための関数型言語入門

広告を非表示にする