Module/拡張乱数

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

/*
################################################################################
#                                                                              #
#                      重複のない乱数を生成するモジュール                      #
#                                                                              #
################################################################################
*/
 
#module "kz3rnx"
    ; ランダムポイントをリセットする
    #deffunc rnx_reset
        rnxp = brng
        return
 
    ; 重複しない乱数を得る
    #deffunc rndex val , int
        mref value , 16
        mref rng , 1
        mref res , 64
 
        if rng <= 0 : res = 1 : goto *@f
 
        if (brng = 0) | (brng ! rng){
            dim rnxtbl , rng
            repeat rng
                rnxtbl.cnt = cnt
            loop
            rnxp = rng
            brng = rng
        }
 
        rnd r , rnxp
        value = rnxtbl.r
 
        rnxp--
 
        tmp         = rnxtbl.r
        rnxtbl.r    = rnxtbl.rnxp
        rnxtbl.rnxp = tmp
 
        if rnxp = 0 : rnxp = rng
        res = 0
*@
    return
#global

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12

    #include "rnx.as"
    randomize
    repeat 3
        rndex a , 8
        mes a
    loop
    rnx_reset
    repeat 10
        rndex a , 5
        mes a
    loop
    stop