kaveet/checkSort.hs

Last active December 9, 2022 07:31

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/kaveet/b77f2f3add61d9c3afdb6852b7f36b03.js"></script>
Save kaveet/b77f2f3add61d9c3afdb6852b7f36b03 to your computer and use it in GitHub Desktop.

Download ZIP

Check if list is sorted in Haskell

Raw

checkSort.hs

	module Sorted where

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

robbie01 commented Oct 31, 2017

sorted xs = and $ zipWith (<=) xs (tail xs)

Haskell is so cool!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment