15/11/16 14:40:41.84 W0rLrKGS0.net
>>60
期待値が良くわからないけど、こういうこと？
Dim Original[] =0,1,2,3,4,5,6,7,8,9
Dim CarSel[0]
copyArray(Original, CarSel)
shuffle(CarSel)
print Length(CarSel) +":"+Join(CarSel,",")
copyArray(Original, CarSel)
Resize(CarSel,8)
shuffle(CarSel)
print Length(CarSel) +":"+Join(CarSel,",")
Function copyArray(var src[], var dst[])
for i=0 to Length(src)-1
Resize(dst, i)
dst[i] =src[i]
next
Result =i
Fend