[Chicken-users] Efficient shuffle algorithm

[joel reymont]

Folks,

How would I efficiently implement this algorithm on a list?

START WITH FRESH DECK
        GET RANDOM SEED
FOR CT = 1, WHILE CT <= 52, DO
        X = RANDOM NUMBER BETWEEN CT AND 52 INCLUSIVE
        SWAP DECK[CT] WITH DECK[X]

I do know that there's the shuffle form in the extras unit but I would
like to implement the algorithm above.

    Thanks, Joel

-- 
http://wagerlabs.com/tech