言語で関数を定義することはできないけれど
通常は再生されないフレームにアクションを書いて
call(フレーム名) とする方法が使われる。
しかし、これは関数と言うよりはサブルーチンだ。
普通は再帰呼び出しすることはできない。
「それじゃ、引数や返り値の受け渡しのためにスタックを実装すれば、関数になるのでは？」
と思って作ってみた。
いろいろな実装方法が考えられるけれど、とりあえず次のようなルールとする。
- 関数への引数は、関数を呼び出す側でスタックに積む。
- 関数はスタックを参照して引数を得る。
- 関数は返り値をスタックに積む。
- 関数呼び出しの後に引数と返り値をスタックから取り除くのは、関数を呼び出す側の責任。
ルートムービークリップのフレーム1のアクション
sp = -1; // スタックポインタの初期化
// 引数をスタックに積む
++sp;
eval( "s" add sp ) = 12;
call ( "fact" ); // 関数呼び出し
// 答えをスタックから取り除く
r = eval ( "s" add sp );
--sp;
trace ( r ); // 確認
stop();
ルートムービークリップのフレーム2のアクション
// 階乗を計算する関数
n = eval ( "s" add sp );
if ( n == 0 ) {
eval ( "s" add sp ) = 1; // 引数をスタックから取り除き、答えをスタックに積む。つまりspは変化しない。
} else {
// 引数をスタックに積む
++sp;
eval ( "s" add sp ) = n - 1;
call ( "fact" );
r = eval ( "s" add sp ); // 関数の答えを取得する。
--sp; // スタックポインタを戻す
n = eval ( "s" add sp ); // n は再帰呼び出しで変化してるので復帰させる。
eval ( "s" add sp ) = r * n; // 引数をスタックから取り除き、答えをスタックに積む。つまりspは変化しない。
}
最後にルートムービークリップのフレーム2に名前"fact"をつけてプレビュー。
479001600
12!(12の階乗)を計算できた。
関数できた。
・・・かなり面倒だな。
投稿
