
28 May
2008
28 May
'08
9:53 p.m.
Hello,
I need a break function that splits the list one element further than
the ordinary break.
This is the simplest solution I could imagine:
breakI :: (a -> Bool) -> [a] -> ([a], [a])
breakI p s = case break p s of
([], []) -> ([], [])
(x, []) -> (x, [])
(x, l) -> (x ++ [head l], tail l )
Is there a better way to write this ?
thanks in advance,
Pieter
--
Pieter Laeremans