module Cookbook.Ingredients.Lists.Modify where
import qualified Cookbook.Essential.Common as Cm
import qualified Cookbook.Essential.Continuous as Cnt
import qualified Cookbook.Ingredients.Functional.Break as Br
import qualified Cookbook.Ingredients.Lists.Access as Ac
rev :: [a] -> [a]
rev [] = []
rev (x:xs) = rev xs ++ [x]
rm :: (Eq a) => [a] -> a -> [a]
rm x c = filter (/=c) x
splitOn :: (Eq a) => [a] -> a -> [[a]]
splitOn [] _ = []
splitOn x c = if (c `notElem` x) then [x] else (Cnt.before x c) : splitOn (Cnt.after x c) c
between :: (Eq a) => [a] -> (a,a) -> [a]
between a (c,d) = Cnt.after (take (last $ Cm.positions a d) a) c
linesBetween :: (Eq a) => [[a]] -> ([a],[a]) -> [[a]]
linesBetween a (c,d) = tail $ Br.filterBreak (\e -> not $ Ac.contains e d) $ Br.removeBreak (\e -> not $ Ac.contains e c) a
intersperse :: [a] -> a -> [a]
intersperse [x] _ = [x]
intersperse (x:xs) c = x:c : intersperse xs c
(?) :: a -> a -> Bool -> a
(?) a b c = if c then a else b
surroundedBy :: (Eq a) => [a] -> (a,a) -> [[a]]
surroundedBy x (a,b) = if or (map (not . (flip elem) x) [a,b]) then [] else recurse
where recurse = Cnt.before (Cnt.after x a) b : surroundedBy (Cnt.after x b) (a,b)