んっと、前も同じ話題出てたと思うけど… クッキー氏のそのままだとちゃんとしたランダムにならない。 並べ替えるのはFisher–Yatesという方法を使うのが普通で最速で最小コスト。 クッキー氏の9～11行を以下に換える。 for i = len(a)-1 to 0 step -1 swap a[i],a[rnd(i+1)] next