saevarb · November 10, 2014 17:22
diff --git a/exercises.hs b/exercises.hs
 remdups :: Eq a => [a] -> [a]
 remdups =
    foldr rm []
  where
    rm a []    = [a]
    rm a (x:l) =
        if a == x
        then x:l
        else a:x:l
	remdups :: Eq a => [a] -> [a]
	remdups =
	foldr rm []
	where
	rm a [] = [a]
	rm a (x:l) =
	if a == x
	then x:l
	else a:x:l