Shuffle an Array
Module — 2 files
These files compile together (same module folder).
file_1.verse
FisherYatesShuffle(Source:[]int)<transacts>:[]int =
var ShaffleDeck :[]int = Source #1
for:
Head := 0..ShaffleDeck.Length-2 #2
RandomNumber := GetRandomInt(Head, ShaffleDeck.Length-1) #3
Temp := ShaffleDeck[Head] #4
set ShaffleDeck[Head] = ShaffleDeck[RandomNumber]
set ShaffleDeck[RandomNumber] = Temp
do:
return ShaffleDeck
Sign in to download module
Copy-paste each file above is always free.