シードを固定した乱数 in HSP DouKaku?

シードを固定した乱数

シードを固定した疑似乱数を出力してください。
数回実行して、常に同じ結果が出力されることを確認してください。

post comment

Posted feedbacks - HSP

組み込みの機能で。

#const CONST_SEED 32

*main
    dim pt, 2, 2
    
    repeat
        gosub *LResetPoint
        gosub *LRedraw
        
        wait 120
    loop
    stop
    
*LResetPoint
    dim pt, 2, 2
    
    // 座標4点は固定シード
    randomize CONST_SEED
    repeat length2(pt)
        pt(0, cnt) = rnd(640), rnd(480)
    loop
    
    return
    
*LRedraw
    redraw 2
    color : boxf
    
    // 色は適当シード => 毎回変化する
    randomize
    color rnd(256), rnd(256), rnd(256)
    boxf pt(0, 0), pt(1, 0), pt(0, 1), pt(1, 1)
    
    redraw
    return

DouKaku?

シードを固定した乱数

Posted feedbacks - HSP

Index

Feed

Other

Link

Pathtraq