YAMAGUCHI::weblog

海水パンツとゴーグルで、巨万の富を築きました。カリブの怪物、フリーアルバイター瞳です。

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…