shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add break

--- a/lib/Data/List.hs

+++ b/lib/Data/List.hs

@@ -261,6 +261,9 @@

     rec r (x:xs) = if p x then rec (x:r) xs else (reverse r, x:xs)

   in rec []

+break :: forall a . (a -> Bool) -> [a] -> ([a],[a])

+break p = span (not . p)

+

 spanUntil :: forall a . (a -> Bool) -> [a] -> ([a], [a])

 spanUntil p =

   let

-- 

⑨