在Haskell中订购清单列表

Question

说如果我有一个列表，例如[[1,3,4],[1,5,6,7],[2,8,0]]或["QQQ", "RRRR", "TTTTT"]，是否有一个函数会按照内部列表中的元素数排序，即在Int列表中的4元素列表走到前面，在String的列表中，T s到达前面，然后是R s？

Answer 1

使用sortBy使用自定义谓词：

Prelude> import Data.List 
Prelude Data.List> let l = [[1,3,4],[1,5,6,7],[2,8,0]] 
Prelude Data.List> sortBy (\e1 e2 -> compare (length e2) (length e1)) l 
[[1,5,6,7],[1,3,4],[2,8,0]] 

编辑：感谢@JJJ一​​个更美丽的变种

Prelude Data.List> import Data.Ord 
Prelude Data.List Data.Ord> sortBy (flip $ comparing length) l 
[[1,5,6,7],[1,3,4],[2,8,0]] 

Answer 2

sortBy从和Data.List模块从comparing将Data.Ord帮助您。

foo = sortBy (comparing (negate . length)) 

bar = foo ["QQQ", "RRRR", "TTTTT"] 

Answer 3

我想添加另一个解决方案，记忆给定列表的长度。否则，每次比较都会重新计算长度，这意味着大型列表的开销很大。

import Control.Arrow ((&&&)) 
import Data.List (sort, sortBy) 
import Data.Ord (comparing) 

sortByLen :: [[a]] -> [[a]] 
sortByLen = map snd . sortBy (comparing fst) . map ((negate . length) &&& id) 

如果你也想在相同长度的名单得到字典顺序排序，您可以使用稍微简单

sortByLen' :: (Ord a) => [[a]] -> [[a]] 
sortByLen' = map snd . sort . map ((negate . length) &&& id)