エンジニアのソフトウェア的愛情

または私は如何にして心配するのを止めてプログラムを・愛する・ようになったか

Kleisli

import Control.Arrow
import Data.List

return "hogehoge.txt" >>= readFile >>= return.lines >>= return.sort >>= return.unlines >>= putStrLn

runKleisli (Kleisli readFile >>> arr lines >>> arr sort >>> arr unlines >>> Kleisli putStrLn) "hogehoge.txt"