求一个随机整数的算法

嘿拉风

就是问一下，我想设置一个变量组random[x]有10个  每一个变量在1－30里面随机取一个数，要求不重复，怎么计算方便点呢？

想是想出来了一种办法 但是觉得太苯了想问以下也没有简单的方法

zhuzeitou

数组1-30，随机交换数组中2个元素，重复n次，取前10个……
数组1-30，去数组中的随机不为0的元素，并将此元素赋值为0，重复10次……

等等

嘿拉风

交换？？？

我明白什么意思了但是这个交换怎么操作？

zhuzeitou

利用中间变量，反正数组项多得很

Conflux

1. int a
2. int b
3. int c=0
5. random[1] = 999
6. ...
7. random[10] = 999
9. 以a从30~21做循环
10.   设置 random[a-20] = 随机数在 1~a 之间
11.   set c=0
12.   以b从1 ~ 10 做循环
13.     if random[a-20] > ramdom[b] then
14.            set c=c+1
15.         endif
16.     endloop b
17.     set random[a-20]=random[a-20]+c
18. endloop a

复制代码

你试试这样子 我还没检查对不对

zhuzeitou

hmmm，jass里的整数是integer，局部变量要用local
我上面说的第二种方法其实比较好实现

[codes=jass]globals
    integer array random
    integer array source   
endglobals

function XXX takes nothing returns nothing
    local integer i = 0
    local integer i2
    loop
        exitwhen i >= 30
        set source = i + 1
        set i = i + 1
    endloop
    set i = 0
    loop
        exitwhen i >= 10
        loop
            set i2 = GetRandomInt(0, 29)
            set random = source[i2]
            set source[i2] = 0
            exitwhen random > 0
        endloop
        set i = i + 1
    endloop
endfunction[/codes]

Conflux

咱确实很嫩 楼上的方法更巧些

zhuzeitou

[codes=jass]globals
    integer array random  
endglobals

function XXX takes nothing returns nothing
    local integer i = 0
    local integer i1
    local integer i2
    local integer temp
    loop
        exitwhen i >= 30
        set random = i + 1
        set i = i + 1
    endloop
    set i = GetRandomInt(400, 600)
    loop
        set i1 = GetRandomInt(0, 29)
        set i2 = GetRandomInt(0, 29)
        set temp = random[i1]
        set random[i1] = random[i2]
        set random[i2] = temp
        set i = i - 1
        exitwhen i <= 0
    endloop
endfunction[/codes]

于是给一下第一种方法的实现

嘿拉风

你猜我怎么弄的～～～



很苯   

但是对于我来说很好理解～～～

actboy168

第一种方法好,第二种不稳定

Conflux

弱弱的问下, 7楼的方法会不会出现重复的呀

zhuzeitou

引用第10楼Conflux于2009-05-26 21:15发表的  :
弱弱的问下, 7楼的方法会不会出现重复的呀

不会阿，原理是把任意2项交换，重复400-600次

Conflux

其实咱地下室的方法是最好的... 不会有走不出去的循环

即使是5楼... 这个循环如果运气差到家 也有可能走不出去 虽然几率比电脑蓝屏还要少得多

1.         loop
2.             set i2 = GetRandomInt(0, 29)
3.             set random[i] = source[i2]
4.             set source[i2] = 0
5.             exitwhen random[i] > 0
6.         endloop

复制代码

zhuzeitou

5楼的确有点rp，不过7楼可不会哦
不过效率嘛，嘿嘿

小药

[codes=jass]
globals
    integer array random
endglobals

function Vi_Shen_Me_De_Zui_Tao_Yan_Le takes nothing returns nothing
    local integer i = 1
    local integer j
    local integer temp
    local integer start
    loop
        exitwhen i > 30
        if random == 0 then
            set random = i
        endif
        set j = GetRandomInt(1, 30)
        if i == j then
            if j == 30 then
                set j = 1
            else
                set j = j + 1
            endif
        endif
        if random[j] == 0 then
            set random[j] = j
        endif
        set temp = random
        set random = random[j]
        set random[j] = temp
        set i = i + 1        
    endloop
   
    //可以只取前10个，不用下面这段
    set start = GetRandomInt(0, 20)
    set i = 1
    loop
        exitwhen i > 30
        if i <= 10 then
            set random = random[start + i]
        else
            set random = 0
        endif
        set i = i + 1
    endloop
endfunction
[/codes]

actboy168

如果觉得交换效率低,还有个方法

[jass]
function XXX takes nothing returns nothing
    local integer i = 0
    local integer rnd
    loop
         exitwhen i > 29
         set source = i + 1
         set i = i + 1
     endloop
     set i = 0
     loop
         exitwhen i > 9
         set rnd = GetRandomInt(i, 29)
         set random = source[rnd]
         set source[rnd] = source
         set i = i + 1
     endloop
endfunction
[/jass]

思路是这样,代码不保证一定对......

Conflux

思路应该对的... 可是最后的交换出问题了

actboy168

最后不是交换,也不需要交换

eff

g=CreateGroup()
loop 30
{
GroupAddUnit(g,u)
}

i = GetRandonInt(1,30)

loop 10
{
if ForGroupIndex==i
GroupRemove(u)
AddUnitToList(u)
}

小药

感觉上面这些算法的空间至少都等于MaxRnd - MinRnd + 1，如果随机范围>>取值数组大小的话，还是用那个很RP的算法为好~~~