[56b] Взаимоисключение Опции

[d`ArcZeal]

Sphere 56b

Необходима функция которая отобразит любые уникальные 4 числа от 1 до 10.

А более конкретно стоит задача, чтобы при генерации предмета, он обладал 4-мя заготовленными бонусами из 10 возможных.

[Sirocco]

Чтобы вам было не скучно... вот еще один алгоритм.

Код

[FUNCTION f_shuffle]
FOR i 1 10
    local.n<dlocal.i> = <dlocal.i>
ENDFOR
FOR m 1 10
    local.rand = {1 10}
    local.prev = <local.n_<dlocal.m>>
    local.n_<dlocal.m> = <local.n_<dlocal.rand>>
    local.n_<dlocal.rand> = <dlocal.prev>
ENDFOR
FOR z 1 4
    say @,,1 <local.n_<dlocal.z>>
ENDFOR
say @,,1 ----------------------------