2007-01-23から1日間の記事一覧
テキストファイルから入力を受け付ける時にはよく使う。あとはカンマ区切りなんかも。 import Data.Char splitBy :: (a -> Bool) -> [a] -> [[a]] splitBy p [] = [] splitBy p xs = a : (splitBy p $ dropWhile p $ b) where (a, b) = break p xs splitBySp…
テキストファイルから入力を受け付ける時にはよく使う。あとはカンマ区切りなんかも。 import Data.Char splitBy :: (a -> Bool) -> [a] -> [[a]] splitBy p [] = [] splitBy p xs = a : (splitBy p $ dropWhile p $ b) where (a, b) = break p xs splitBySp…