OpenEuphoria

Pastey simple_sort from demo/allsorts.ex

• Posted by jeremy (admin) Aug 31, 2011

deprecate function simple_sort(sequence x)
	-- put x into ascending order 
	-- using a very simple sort 
	object temp 
	 
	for i = 1 to length(x) - 1 do 
		for j = i + 1 to length(x) do 
			if compare(x[j], x[i]) < 0 then 
				temp = x[j] 
				x[j] = x[i] 
				x[i] = temp 
			end if 
		end for 
	end for 
	return x 
end function