-- | checkSort verify if a given list is sorted
-- Point-free version is hard to find BUT is redable.
-- Level: Medium
--
-- Examples:
--
-- >>> checkSort ([1..10] :: [Int])
-- True
--
-- >>> checkSort $ ([1,3,2] :: [Int])
-- False
--
-- >>> checkSort []
-- True
--
checkSort :: Ord a => [a] -> Bool
checkSort = (\x -> and $ zipWith (<) x (tail x))
main = print $ map checkSort [[1..10],[1,3,2],[]]