Best shuffle: Difference between revisions

m
Update
(Replaced VBScript implementation.)
m (Update)
Line 3,499:
=={{header|VBScript}}==
{{trans|Java}}
<lang vbvbscript>'Best Shuffle Task
'VBScript Implementation
 
Line 3,510:
Next
 
arr = shuffler(arr) 'CommentMake this line a comment for deterministic solution
For i = 0 To UBound(arr):Do
If arr(i) <> Mid(s, i + 1, 1) Then Exit Do
535

edits