'n個の重複しない乱数を表示する option defint var n = 53, i, r, used[n], z[n] for i = 0 to n - 1 ' initialize table z[i] = i next while n r = rnd(n) ? z[r] inc used[r] n = n - 1 sort used, z wend