2006-12-27から1日間の記事一覧
お題だけ拝借。cf. Gaucheクックブック - タブをスペースで展開する1文字ずつ処理する。正規表現を使ったり日本語を考慮するのはパス。 untabify :: Int -> String -> String untabify w = f "" 0 where f r _ [] = r f r p (c:cs) | '\t' == c = f (r ++ r…
お題だけ拝借。cf. Gaucheクックブック - タブをスペースで展開する1文字ずつ処理する。正規表現を使ったり日本語を考慮するのはパス。 untabify :: Int -> String -> String untabify w = f "" 0 where f r _ [] = r f r p (c:cs) | '\t' == c = f (r ++ r…