排列排序

也称为 bogosort 。

import Data.List (permutations)

sorted::Ord a => [a] -> Bool
sorted (x:y:xs) = x <= y && sorted (y:xs)
sorted _        = True

psort::Ord a => [a] -> [a]
psort = head . filter sorted . permutations

极其低效（在今天的计算机上）。