Traverse() 関数 (2)
Traverse では、逆の順序で添え字を検索することもできます。この場合、第 2 引数で -1 を使用します。
x(1)=1 : x(4)=2 : x(9)=3
println "last subscript is: ", traverse( x(""), -1 )
println "subscript before 9 is: ", traverse( x(9), -1 )
println "subscript before 4 is: ", traverse( x(4), -1 )
println "subscript before 1 is: ", traverse( x(1), -1 )
Traverse() を使用して有効な添え字値を取得する際に、同時に等式の右側の値も取得できます。Traverse() の 3 番目の引数に変数名を割り当てると、2 ステップの代わりに 1 ステップでこれらの値を取得できます。
x(1)=1 : x(4)=2 : x(9)=3
a = traverse( x(4) ) : b = x(a)
println a, " ", b ' get next subscript (a), and value on right (b)
a = traverse( x(4), 1, b)
println a, " ", b ' do the same thing, simpler and faster
