topic Re: Alphabetize List in Libraries & objects

Alphabetize List

James Murray — Wed, 14 Feb 2007 14:27:22 GMT

Anybody know a trick for alphabetizing a list in GDL?

Re: Alphabetize List

Frank Beister — Wed, 14 Feb 2007 15:13:00 GMT

One of the basic programming issues. Are you looking for an algorithm or a ready to use script? Best should be bubble sort, I guess.
Comparing two strings can be done by < or >

From brain to keyboard:

dim t[], s[]

! ### set source
t[1]="one "
t[2]="two "
t[3]="three "
t[4]="four "

! ### preset destination
FOR i=1 TO VARDIM1(t)
 s=""
 NEXT i

! ### sort
FOR i=1 TO VARDIM1(t)
 p=i
 FOR j=1 TO i-1
  IF s>t THEN
   ! insert element
   FOR k=i TO j+1 STEP -1
    s=s[k-1]
    NEXT k
   p=j : j=VARDIM1(s)
   ENDIF
  NEXT j
 s=t
 NEXT i

! ### output
PRINT s, "/", VARDIM1(s)

Re: Alphabetize List

James Murray — Wed, 14 Feb 2007 23:46:37 GMT

Viel Dank, Frank. I'll give it a go.

Re: Alphabetize List

Anonymous — Sat, 17 Feb 2007 18:45:02 GMT

Danke sehr mein Freund. I have been meaning to figure something like this out for some time. I hadn't expected the code to be so short. I look forward to trying it out.