- 471 名前：名前は開発中のものです。 mailto:sage [2007/02/22(木) 23:23:00 ID:MHAA7b9m]
- #define ALL 43 //0~42の合計43個から
#define NEED 6 //6個選ぶとして
if ALL < NEED : dialog "ALL が NEED 未満\nALL="+ALL+" NEED="+NEED,1,"MyError!" : end
//初期化
dim a, ALL
repeat ALL : a(cnt) = cnt : loop
//シャッフル
randomize
repeat NEED
idx = rnd(ALL-cnt)+cnt //←*******ここ、これでもいけるんじゃね？*********
//ここで２つをスワップ
tmp = a(cnt) : a(cnt) = a(idx) : a(idx) = tmp
loop
//処理が終了した、結果を確認 ****
sdim result, 32*ALL : notesel result
repeat ALL
noteadd "a[" + strf("%2d",cnt) + "] = " + a(cnt)
if(cnt == NEED-1) : noteadd "↑ ここまで"
loop
mesbox result, ginfo_winx,ginfo_winy, 0
|
 |
