Как удалить уникальные элементы в списке? Haskell

Question

Как удалить уникальные элементы в списке, так что остаются только часто встречающиеся элементы (только с использованием функций прелюдии). например

["abc","abc","a","b","c","b"] 

вернется:

["abc","b"] 

В случае, когда все элементы происходят ровно один раз, все будут возвращены.

Если это помогает, я уже реализовал функцию сортировки.

Answer 1

После сортировки вы можете сопоставлять совпадение с элементами повтора, отбрасывая все остальное.

dropSingles [] = [] 
dropSingles (x:y:rest) | x == y = x:dropSingles (dropWhile (== x) rest) 
dropSingles (x:rest) = dropSingles rest 

Answer 2

Как насчет этого?

import Data.List 

getDups :: Ord a => [a] -> [a] 
getDups = map head . filter (\l -> length l > 1) . group . sort 

Сначала вы сортируете список, потому что группа работает только тогда, когда одни и те же элементы смежны. Затем вы фильтруете группы с несколькими элементами. Что вы берете первый элемент каждой группы, потому что вы уже знаете, что есть хотя бы один.

Answer 3

import Data.List 

f xs = case nub (xs \\ nub xs) of 
    [] -> xs 
    xs' -> xs' 

main = do 
    print $ f ["abc","abc","abc","a","b","c","b"] -- ["abc","b"] 
    print $ f ["abc","a","c","b"]     -- ["abc","a","c","b"] 

Т.е. удалите каждый элемент один раз и затем возвращайте каждый элемент один раз.