sort function

Blitz3D Forums/Blitz3D Programming/sort function

Santiworld

(Posted 2009) [#1]

hi, my mind is breackdown..

i can make a sort function...

i want to sort car position acording to the lap time...

how can i make a sort for car positions?

	For puesto = 1 To coches
		For car = 1 To coches
			If Pos(car) = 0 Then
				If tiempo(car) < mejor_tiempo Then
					best_time = car
				End If
			End If
		Next
		Pos(best_time) = puesto
		mejor_tiempo = tiempo(best_time)
	Next

Santiworld

(Posted 2009) [#2]

i answer to my self

i found this...

http://blitzbasic.com/Community/posts.php?topic=22592#235043

but i still don't understand :(

Charrua

(Posted 2009) [#3]

hi

there is a little bug in the code posted, fixed:

Graphics 640,480

Dim source(19)
Dim sorted(19)

For n=0 To 19
	source(n)=Rand(1,100)
	Text 0,(n+1)*20,source(n)
Next
Text 0,0,"Original List"


; bubble sort

For n=0 To 19
	For n1=19 To 0 Step-1
		If source(n)>sorted(n1) Then nn1=n1
	Next
	n1=nn1
	For n2=18 To n1 Step-1              ;this line were incorrect!
		sorted(n2+1)=sorted(n2)
	Next
	sorted(n1)=source(n)
Next

For n=0 To 19
	Text 200,(n+1)*20,sorted(n)
Next
Text 200,0,"Sorted List"

WaitKey()

in esence you find the first which is out of order (starting to look from back to top), and move all the rest down to put the first not in sequence in it's place (going up, so like a bubble tends to go up!). That is doing for all the membres if necesary.

as in the post says, is not fast, it depends on how much "not ordered" were the elements.

Juan

nawi	(Posted 2009) [#4]

http://en.wikipedia.org/wiki/Bubble_sort
This algorithm is pretty easy to implement.

big10p

(Posted 2009) [#5]

There is a load of sort functions in the code archives. QuickSort is probably the best one to go for. BubbleSort is pretty slow but it may not matter in this instance.