Simple table sorting. :)

[mrminecrafttnt]

Code: Select all

dim as integer value(30)
randomize timer
for i as integer = 0 to ubound(value)
    value(i) = Int(rnd*9999)
next


for i as integer = 0 to ubound(value)
    for i2 as integer  = 0 to ubound(value)
        if value(i) < value(i2) then
            swap value(i),value(i2)
        end if
    next
next

for i as integer = 0 to ubound(value)
    print value(i)
next
sleep


    

[D.J.Peters]

Sorry but this looks not really clever it's a runtime of N x N ;-)

How ever it should be:
if (i<>i2) andalso (value(i) < value(i2)) then swap value(i),value(i2)

Joshy

Code: Select all

dim as integer value(30)
randomize timer
for i as integer = 0 to ubound(value)
  value(i) = Int(rnd*9999)
next
for i as integer = 0 to ubound(value)
  print value(i),
next
print : print

for i as integer = 0 to ubound(value)
  for i2 as integer = 0 to ubound(value)
    if (i<>i2) andalso (value(i) < value(i2)) then swap value(i),value(i2)
  next
next

for i as integer = 0 to ubound(value)
   print value(i),
next
print : print 
print "done ..."
sleep