blob: 0ff75ccad2b5f5142614182acbf4d2eced6a8c91 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
import Data.List
import Data.Ord (comparing)
import Data.Function
lsort :: [[a]] -> [[a]]
lsort = sortBy (comparing length)
lsort' = sortBy (\xs ys -> compare (length xs) (length ys))
lsort'' = sortBy (compare `on` length)
|
