main = putStrLn "hello wo" sorted :: (Ord a) => [a] -> Bool sorted [] = True sorted [x] = True sorted (x:xs:xss) = x<=xs && sorted (xs:xss)
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more