Add spanEnd and breakEnd

augustss · Nov 16, 2024 · fe42bfc · fe42bfc
1 parent d8e05cf
commit fe42bfc
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/lib/Data/List.hs b/lib/Data/List.hs
@@ -11,6 +11,7 @@ module Data.List(
   iterate, iterate', repeat, replicate, cycle,
   unfoldr,
   take, drop, splitAt, takeWhile, takeWhileEnd, dropWhile, dropWhileEnd, span, spanUntil, break, splitWith,
+  spanEnd, breakEnd,
   stripPrefix, stripSuffix, group, inits, tails,
   isPrefixOf, isSuffixOf, isInfixOf, isSubsequenceOf,
   elem, notElem, lookup,
@@ -379,6 +380,12 @@ span p =
 break :: forall a . (a -> Bool) -> [a] -> ([a],[a])
 break p = span (not . p)
 
+spanEnd :: (a -> Bool) -> [a] -> ([a], [a])
+spanEnd p xs = (dropWhileEnd p xs, takeWhileEnd p xs)
+
+breakEnd :: (a -> Bool) -> [a] -> ([a], [a])
+breakEnd p = spanEnd (not . p)
+
 spanUntil :: forall a . (a -> Bool) -> [a] -> ([a], [a])
 spanUntil p =
   let