E_Mattsan https://blog.hatena.ne.jp/E_Mattsan/ エンジニアのソフトウェア的愛情 https://blog.emattsan.org/ Haskell numbering :: [String] -> [String] numbering ss = map format $ zip [1..] ss where format (n,s) = setw 6 (show n) ++ ": " ++ s setw n s = replicate (n - length s) ' ' ++ s amazon:ふつうのHaskellプログラミングにもこの例はあるんですが、興味を引かれたのはその先でして。 標準入力を標準出力に出力する次のようなコードに、 main = getContents >>= putStr 次のようにするだけで、各行に番号が振れる… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.emattsan.org%2Fentry%2F20070418%2F1176902135" title="番号を振る - エンジニアのソフトウェア的愛情" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-04-18 22:15:35 rich https://blog.emattsan.org/entry/20070418/1176902135 1.0 100%