📅  最后修改于: 2022-03-11 14:59:17.057000             🧑  作者: Mango
代码示例1
sorted :: (Ord a) => [a] -> Bool
sorted [] = True
sorted [x] = True
sorted (x:y:xs) = if x <= y then sorted (y:xs) else False