行ごとに処理するだけならこんなのでも良かった。 import Data.List main = interact $ \d -> let (l,w,c) = calc d in show l ++ " " ++ show w ++ " " ++ show c where calc = foldl' sadd (0,0,0) . map wccc . lines wccc str = (length $ words str,len…

http://www.bagley.org/~doug/shootout/ このページ、言語の比較ページなのであるが、 Haskellのスコアが不当に低いように感じた。 全体のスコアは未実装のテストが有ると大幅に低下してしまうようなのだが、 LOC(コードの長さ)でもあまり芳しくないのはどう…