Отфильтровать строки, которые n-раз в списке

Question

Учитывая список строк и целое число c Я хочу отфильтровать строки, которые являются c-times в списке. Проблема в том, что я не знаю, как взять следующий элемент в моей функции, так как я не могу просто взять первый, потому что тогда функция не будет работать правильно.

testfunc :: [String] -> Int -> [String] 

testfunc list c    
     | (length(filter (==(head list)) list) == c) = testfunc (filter (/=(head list)) list) c 

Answer 1

Если это нормально для элементов в возвращаемом списке находиться в различных относительных положениях, чем они были в первоначальном списке, то вы можете легко (и с более высокой производительностью) решить эту проблему с комбинацией сортировки, группировка и CONCAT «ING:

testfunc list c = concat $ filter (\p -> length p /= c) $ group (sort list) 

Если вы хотите сделать это ваш путь, вы могли бы использовать drop пропустить первый элемент в списке (это не так, см редактировать):

testfunc list c 
    | list == [] = []    
    | (length(filter (==(head list)) list) == c) = testfunc (filter (/=(head list)) list) c 
    | otherwise = testfunc (drop 1 list) c 

Я нота вполне уверен, что я понял вашу проблему, так это то, что вам нужно?

EDIT: Теперь я понимаю вашу проблему, ваша функция не работает должным образом после первого элемента. Если сохранение порядка важно, вы могли бы попробовать что-то вроде:

testfunc list c = filter (\s -> s `elem` validStrings) list 
      where validStrings = map head $ filter (\p -> length p /= c) $ group (sort list)