sorted :: (Ord a) => [a] -> Bool sorted [] = True sorted [x] = True sorted (x:y:xs) = if x <= y then sorted (y:xs) else False
sorted :: (Ord a) => [a] -> Bool sorted [] = True sorted [x] = True sorted (x:y:xs) = if x <= y then sorted (y:xs) else False