
30 Sep
2006
30 Sep
'06
2:50 p.m.
On Sat, Sep 30, 2006 at 08:56:24PM +0400, Bulat Ziganshin wrote:
splitByLen len_f [] = [] splitByLen len_f xs = y : splitByLen len_f ys where (y,ys) = splitAt (len_f xs) xs ... so, "splitByLen len_f" should give you that you need, you need only to add checks for some additional conditions (first word in line is more than 80 bytes long, it is a last line) and removing of the extra space on each line
I came up with this solution that seem to be fine, to me. I does the
checking of those additional conditions:
findSplitP at = last . filter (