HSP - Hot Soup Processor [14]
■ このスレッドは過去ログ倉庫に格納されています
0470名前は開発中のものです。
2007/02/22(木) 21:44:16ID:TMK/38nP#define ALL 43 //0~42の合計43個から
#define NEED 6 //6個選ぶとして
dim a, ALL
repeat ALL
a(cnt) = cnt
loop
repeat NEED
idx = rnd(ALL-(cnt+1))
idx += (cnt+1)
//ここで2つをスワップ
tmp = a(cnt)
a(cnt) = a(idx)
a(idx) = tmp
loop
//処理が終了した、結果を確認 ****
repeat ALL
mes "a[" + cnt + "] = " + a(cnt)
if(cnt == (NEED-1)): mes "↑ ここまで"
loop
■ このスレッドは過去ログ倉庫に格納されています