07-09-2025, 10:37 PM
Ah, Heck! That is way easier then what I am doing:
(shuffle a deck of cards)..
You just helped me dwindle my code into 4 lines.
(shuffle a deck of cards)..
You just helped me dwindle my code into 4 lines.
Code: (Select All)
Input n: Dim e(n)
For i = 1 To n: e(i) = i: Next
For i = 1 To n: Swap e(Int(Rnd * n + 1)), e(Int(Rnd * n + 1)): Next
For i = 1 To n: Print e(i);: Next