array mischen?

[Husten]

hi,

gibt es eine möglichkeit den inhalt eines arrays per zufall zu mischen also aus

dim[3]
dim[0]=1
dim[1]=2
dim[2]=3

zb einfach

dim[0]=3
dim[1]=1
dim[2]=2

machen, halt per zufall

[Kitty Hello]

Code (glbasic) Select Expand

DIMDATA f[], 1,2,3
Permute(a[])

FUNCTION Permute: arr[]
LOCAL i, j, k, s, nper
nper = LEN(arr[]) * 3 + 20
FOR i=0 TO nper
j = RND(LEN(arr[])-1)
k = RND(LEN(arr[])-1)
IF j<>k
s = arr[j]
arr[j]=arr[k]
arr[k]=s
ENDIF
NEXT
ENDFUNCTION

[Husten]

danke lustige lösung, einfach zufällig paare raussuchen und vertauschen, darauf muss man erstmal kommen