shuffle string with optional shuffledness parameter
Posted: Fri Jun 12, 2020 11:52 am
you can shuffle a string!
And the shuffledness parameter will make it more or less shuffled.
Enjoy!
And the shuffledness parameter will make it more or less shuffled.
Code: Select all
;-------
;shuffle string procedure with optional shuffledness parameter by rb studios
Procedure.s shufflestring(string.s,shuffledness=50)
finalstring.s=""
Dim chars.s(Len(string)-1)
For i = 0 To Len(string)-1
chars(i)=Mid(string,i+1,1)
Next
For i = 1 To Len(string)*shuffledness
Swap chars(Random(Len(string)-1)),chars(Random(Len(string)-1))
Next
For i = 0 To Len(string)-1
finalstring+chars(i)
Next
ProcedureReturn finalstring
EndProcedure
MessageRequester("shuffle test",shufflestring("shuffle em around oh yeah"))