Is seq sorted?

assert default_comparator.is_sorted([1,2,2,3])   == true
assert default_comparator.is_sorted([1,10,2,3])  == false
assert alpha_comparator.is_sorted([1,10,2,3])    == true

Property definitions

core $ Comparator :: is_sorted
	# Is `seq` sorted?
	#
	#     assert default_comparator.is_sorted([1,2,2,3])   == true
	#     assert default_comparator.is_sorted([1,10,2,3])  == false
	#     assert alpha_comparator.is_sorted([1,10,2,3])    == true
	fun is_sorted(seq: SequenceRead[COMPARED]): Bool
	do
		if seq.length <= 1 then return true
		var prev = seq.first
		for e in seq do
			if compare(prev, e) > 0 then return false
			prev = e
		end
		return true
	end
lib/core/collection/sorter.nit:36,2--50,4