自動化ツールUWSC使いよ集まれ16

自動化ツールUWSC使い ..

67:名無しさん＠お腹いっぱい。
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

次ページ

続きを表示

1を表示