2009-12-27から1日間の記事一覧
休みに入ったので、その間に少しでもRWH読もう。 -- 6 groupBy_fold :: (a -> a -> Bool) -> [a] -> [[a]] groupBy_fold f xs = foldl' step [] xs where step acc y | null acc = [[y]] | f (head $ last acc) y = init acc ++ [ (last acc) ++ [y] ] | oth…
休みに入ったので、その間に少しでもRWH読もう。 -- 6 groupBy_fold :: (a -> a -> Bool) -> [a] -> [[a]] groupBy_fold f xs = foldl' step [] xs where step acc y | null acc = [[y]] | f (head $ last acc) y = init acc ++ [ (last acc) ++ [y] ] | oth…
