Threaded Mode | Linear Mode

RanXerox · 02-15-2013 05:00 AM

Here is a excerpt from my Poker game scripts to sort an array of cards in a list object... I call out to another function called f_Poker_RankCards to decide which is higher or lower... in your case a simple less than or greater than test is probably sufficient:

Code:

[FUNCTION f_Poker_SortCards]

//"

// Usage: f_Poker_SortCards CardArray

//

// Sorts an existing LIST object named CardArray, which is assumed to contain

// CardSymbols.  The sort order has highest ranked cards (Ace) first (suit is

// ignored.)

//"

IF (<ARGV>==0)

   f_pokerlog 1,"Poker_SortCards: needs a CardArray"

   RETURN 1

ENDIF

LOCAL.Input=<ARGS>

LOCAL.InputSize=<LIST.<LOCAL.Input>.COUNT>

IF (<LOCAL.InputSize> < 2)

   f_pokerlog 1,"Poker_SortCards: CardArray <LOCAL.Input> is too small to sort"

   RETURN 1

ENDIF

//f_pokerlog 1,"Poker_SortCards: Start sorting <LOCAL.Input> (size=<LOCAL.InputSize>)"

LOCAL.Swapped=1

WHILE (<dLOCAL.Swapped>==1)

   LOCAL.Swapped=0

   FOR LoopNumber 1 <EVAL <LOCAL.InputSize>-1>

      IF (<LOCAL.LoopNumber>)

         LOCAL.CardA="<STRSUB 1 2 <LIST.<LOCAL.Input>.<EVAL <LOCAL.LoopNumber>-1>>>"

         LOCAL.CardB="<STRSUB 1 2 <LIST.<LOCAL.Input>.<dLOCAL.LoopNumber>>>"

//         f_pokerlog 2,"Poker_SortCards: ..Loop=<dLOCAL.LoopNumber>: Is <LOCAL.CardA> ranked higher than <LOCAL.CardB>?"

         IF (<f_Poker_RankCards <LOCAL.CardA>,<LOCAL.CardB>>==-1) //CardA ranks lower than CardB

//            f_pokerlog 3,"Poker_SortCards: ....swap them"

            LIST.<LOCAL.Input>.<EVAL <LOCAL.LoopNumber>-1>=<LOCAL.CardB>

            LIST.<LOCAL.Input>.<dLOCAL.LoopNumber>=<LOCAL.CardA>

            LOCAL.Swapped=1

//         ELSE

//            f_pokerlog 3,"Poker_SortCards: ....skipping"

         ENDIF

      ENDIF

   ENDFOR

   LOCAL.InputSize=<EVAL <LOCAL.InputSize>-1>

ENDWHILE

//f_pokerlog 1,"Poker_SortCards: Sorting Completed"

Threaded Mode \| Linear Mode A Question on File-Options
Author	Message