path: root/Utils.hs

module Utils where


uniq :: Eq a => [a] -> [a]
uniq (a:b:cs) | a == b = uniq (b:cs)
              | otherwise = a : uniq (b:cs)
uniq l = l