shuffle string with optional shuffledness parameter

[rory-games]

you can shuffle a string!
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"))

Enjoy!

[IdeasVacuum]

Nice, but it shuffles too fast! How about displaying the original string and showing that being shuffled char by char?