Haskell-创建集(唯一排序列表)-无递归,无nub

一种方法是:

1. 对列表排序。
2. 用它的尾巴把清单拉上拉链。 [1,1,2,3] 进入之内 [(1,1),(1,2),(2,3)]
3. 删除两个项目相同的所有对。
4. 返回包含排序列表的第一个元素的列表,后跟压缩列表中每对的第二个项目。

在代码中:

import Data.List

setify [] = []
setify xs = x : map snd (filter (uncurry (/=)) (zip sxs (tail sxs)))
    where sxs = sort xs
          x   = head sxs

setify :: (Eq b) => [b] -> [b]
setify = foldl f []
where f acc next | next `elem` acc = acc 
                 | otherwise       = next:acc

你可以用吗 group 方法?如果是这样,那么您可以对列表进行排序、分组,最后从每组中提取1项。

import Data.List

setify :: Eq a => [a] -> [a]
setify = map head . group . sort

为什么这么复杂(而且错!)解决?就这么做吧:

uniq [] = []
uniq (x:xs)= x:(uniq (filter (/=x) xs))

setify xs = uniq $ sort xs -- If you want to sort too.