YAMAGUCHI::weblog

土足で窓から失礼いたします。今日からあなたの息子になります。 当年とって92歳、下町の発明王、エジソンです。

2006-07-06から1日間の記事一覧

ふつうのHaskellプログラミング 第8章 練習問題

たしかにポイントフリースタイルで書くとすっきりする気がする。ただ綺麗に書ける自信があまりない。 lstrip.hs lstrip :: String -> String lstrip = dropWhile (== ' ') rstrip.hs rstrip :: String -> String rstrip = reverse . lstrip . reverse

ふつうのHaskellプログラミング 第7章 練習問題

fold.hs foldCol = 61 main = do cs <- getContents putStr $ unlines $ map foldLineAt $ lines cs foldLineAt :: String -> String foldLineAt cs = case snd (splitAt foldCol cs) of [] -> cs (c1:cs1) -> if length cs1 >= (foldCol - 1) then foldLine…