I've been trying to do a simple sort, but it doesn't seem to be working as I
remember. What am I doing wrong?

 #declare R1 = seed(321321);

 #declare Spread = array[6]
 /// populate
 #declare I = 0;
 #while ( I < 5 )
  #declare Spread[I] = rand(R1);
 #declare I = I+1;
 #end
 /// verify
 #declare I = 0;
 #while ( I < 5 )
  #debug concat(str(Spread[I],2,2), "\n")
 #declare I = I+1;
 #end
 #debug "\n"
 /// sort
 #declare I = 0;
 #while ( I < 5 )
 #declare First  = Spread[I];
    #declare P = I+1;
    #while (P < 5)
      #declare Second = Spread[P];
       #if ( Second < First )
       #declare Storage = First;
       #declare First   = Second;
       #declare Second  = Storage;
       #end
    #declare P = P+1;
    #end
 #declare I = I+1;
 #end
 /// re-display
 #declare I = 0;
 #while ( I < 5 )
 #debug concat(str(Spread[I],2,2), "\n")
 #declare I = I+1;
 #end

Post a reply to this message