8 lines
228 B
Text
8 lines
228 B
Text
sequence cards = tagset(52)
|
|
puts(1,"Before: ") ?cards
|
|
for i=52 to 1 by -1 do
|
|
integer r = rand(i)
|
|
{cards[r],cards[i]} = {cards[i],cards[r]}
|
|
end for
|
|
puts(1,"After: ") ?cards
|
|
puts(1,"Sorted: ") ?sort(cards)
|