サブルーチン迷路 | Codetter（こーどったー）

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
// subroutine maze
    randomize
    lb  = *LBottom, *lb1, *lb2, *lb3, *lb4
    msg = "bottom", "*1", "*2", "*3", "*4"
    cntPtns = length(lb)
    
    goto *LStepMaze     // Enter Maze
    
*lb1
    mes msg(1) : gosub *LStepMaze : return
*lb2
    mes msg(2) : gosub *LStepMaze : return
*lb3
    mes msg(3) : gosub *LStepMaze : return
*lb4
    mes msg(4) : gosub *LStepMaze : return
    
*LBottom
    mes msg(0)
    assert      // 停止
    return
    
*LStepMaze
    wait 10     // wait 必須 : 停止しない可能性もなくはない
    goto lb( (rnd(12) + 1) * 13 \ cntPtns )
    
// @ 参照: http://goo.gl/xUPHk
// @ 「リターン先が静的にわからない」状況を簡単に考えようと思った。今は反省している。
// @ よく考えたら、リターン先は普通わからないものだった。サブルーチンと呼び出し元は一般的に一体一対応じゃないのだ。
// mes で出力された文字列を見ると戻り先がわかる。
// @ これは「サブルーチンを監視する」方法の一例
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX