Array values re-position - GameCreators Forum

Author

Message

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 5th May 2010 18:03

Link

Hi guys,
did anyone have done repositioning of items in array?
I wanted to put new value in the array and everything to the end of the array to move one position, but i get confused how to do it exactly.I need this for highscore table.Some ideas how can be done?

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Ashingda 27

16

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 5th May 2010 19:29

Link

You might would want to learn some sorting methods.

Here is a quick list of algorithms you can look up. Top to bottom is easiest to learn to hardest. The harder ones are MUCH faster than the easier ones.

Bubble sort
Selection sort
Comb sort
Quicksort
Radix sort

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 5th May 2010 21:05

Link

You could simply carry out a single run of a bubblesort to get the item in place - no need really for a full-blown sort routine.

+ Code Snippet

` scores held in array items 0 to 9
dim Scores(9)

` Fill in some default values
for i = 0 to 9
   Scores(i) = (10 - i) * 10
next

repeat
   ` Display the scores
   cls
   for i = 0 to 9
      print i ; " - "; Scores(i)
   next
   
   ` Get a new one
   input "Enter a new score: ", EnteredScore

   ` Check if the score belongs in the table (ie, beats the worst score)
   if EnteredScore > Scores(9)
   
      ` Put the score into the table
      Scores(9) = EnteredScore
      
      ` Single sweep of bubblesort
      for i = 9 to 1 step -1
         if Scores(i) > Scores(i-1)
            Temp = Scores(i-1)
            Scores(i-1) = Scores(i)
            Scores(i) = Temp
         endif
      next
  endif
until EnteredScore = -1

Or, you could simply say 'stuff it' and use the sort built into my plug-ins, which is simpler still:

+ Code Snippet

` scores held in array items 0 to 9
dim Scores(9)

` Fill in some default values
for i = 0 to 9
   Scores(i) = (10 - i) * 10
next

repeat
   ` Display the scores
   cls
   for i = 0 to 9
      print i ; " - "; Scores(i)
   next
   
   ` Get a new one
   input "Enter a new score: ", EnteredScore

   ` Check if the score belongs in the table (ie, beats the worst score)
   if EnteredScore > Scores(9)
      ` Overwrite the worst score and sort the table in reverse
      Scores(9) = EnteredScore
      reverse sort array Scores()
  endif
until EnteredScore = -1

Utility plug-ins collection (updated 02 Mar 2010) and
http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 5th May 2010 23:43 Edited at: 6th May 2010 00:05

Link

Oh so it wasn`t as complicated as i think.

Sometimes i`m very stupid because i make a frame but look only arround it and can`t see the picture.What i did not think about is that i really do not need the lowest value if the new one is bigger than it, so i can remove it.Next is easy with matrix1 sort command.

Thank you both for this.Thank you IanM for the matrix1 plugin.It makes my life easy.

About the sort ways i managed to find only few Bubble sort related threads.

EDIT: To IanM
I just tried the 2 ways and the first one strangely works sometime but most of the time produce silent crash.

The second way did not work with UDT arrays.

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 6th May 2010 01:16

Link

Here's another thread I found on this a while back, it might be helpful

:
http://forum.thegamecreators.com/?m=forum_view&t=71251&b=1

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 6th May 2010 15:43

Link

Quote: "The second way did not work with UDT arrays."

No, for UDT arrays you need to use SORT ARRAY, and specify the field number you wish to sort by as a negative number.

SORT ARRAY

Utility plug-ins collection (updated 02 Mar 2010) and
http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 7th May 2010 01:38 Edited at: 7th May 2010 11:05

Link

Something wierd happend, it continues to crash with this part:

+ Code Snippet

if points > highscores(max_board).points
			highscores(max_board).name$ = name$
			highscores(max_board).points = points
			sort array highscores(),-1
			open datafile to write FileID,"highscore.dat"
			for write = 1 to max_board
				write datafile string FileID,highscores(write).name$
				write datafile integer FileID,highscores(write).points
			next write
			close datafile FileID
			exit
		endif

Am i using it wrong?
I`m pretty sure this part is enough to show what is wrong, i can provide more code if this is not good.

EDIT: I get everything working.
There was something left behind, the "exit" comand and the sorting can`t do the array properly from given range, but the whole one.So everywhere i was using "for blabla = 1 to max_value", which is 10, i made to "blabla = 0 to max_value" + decreased max_value to 9.This was causing silent crash, because i didn`t get 0 position in the counts.There was some minor adjustment with one offset variable calculation too, it was based to max_value...

Thanks a lot to everybody!Thanks IanM!

There is the thread with the whole stuff:
http://forum.thegamecreators.com/?m=forum_view&t=169546&b=6&p=0

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 7th May 2010 15:13

Link

You could also have used the SORT ARRAY RANGE command to sort items from 1 to max_value instead

Utility plug-ins collection (updated 02 Mar 2010) and
http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

luskos

17

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 7th May 2010 18:37

Link

lol i really should swim throught your plugin commands

Thank you again!

Where there is a will, there is a way.
I often edit my posts, that`s who i am

Back to top

Profile PM

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 8th May 2010 05:31

Link

what sort of sort algorithm is used in your sort algorithm, IanM?

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 8th May 2010 13:33

Link

It's an Introsort by default (quicksort with high partition sizes, switching to an insertion sort at smaller partion sizes, and switching to heapsort on a partition when worst-case sorting is detected).

You can also currently switch an array to be sorted using mergesort if you require stability in the sorted items, or heapsort if you know ahead of time that quicksort will hit worst case. Plus recently, I've added a shell sort for when you know that your array is already mostly sorted - that'll be in the next release.

TBH, I should have made sure that the code I posted above used the mergesort, so that equal scores would be kept in the correct order.

+ Code Snippet

SET ARRAY SORT  highscores(), 1 ` set to mergesort

Utility plug-ins collection (updated 02 Mar 2010) and
http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 9th May 2010 00:57

Link

Quote: "SET ARRAY SORT"

Ah, did not see that command

I've known that command was there for a while... but I didn't realize it was that amazingly awesome!

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Array values re-position