Add removeItem utility function

2014-10-08 16:27:59 +02:00 · 2014-10-08 16:27:59 +02:00 · da3f71bfc0
commit da3f71bfc0
parent b9048325c0
1 changed files with 5 additions and 0 deletions
--- a/Util.hs
+++ b/Util.hs
@ -11,3 +11,8 @@ splitBy f s =  case dropWhile f s of
                 [] -> []
                 s' -> w : splitBy f s''
                   where (w, s'') = break f s'
+
+
+-- |Remove a given item from a list.
+removeItem :: (Eq a) => a -> [a] -> [a]
+removeItem x = foldr (\x' y -> if x' == x then y else x':y) []