OpenEuphoria

Re: random numbers

• Posted by jiri babor <jbabor at pa?adis?.net.nz> Nov 22, 2007
• 563 views

sequence s

function shuffle(sequence s)    -- random shuffle of sequence
    object temp
    integer r
    for i = length(s) to 2 by -1 do
        r = rand(i)
        temp = s[r]
        s[r] = s[i]
        s[i] = temp
    end for
    return s
end function

s =
{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52}
s = shuffle(s)