第９講 プロシージャの再帰的使用
第２話 プロシージャの再帰的使用の具体例
ここでは、階乗を求めるソフトを作って、プロシージャの再帰的使用の具体例を提示していきましょう。
まず、次のようなＦｏｒｍ１を作ってください。
そして、実行をダブルクリックして次のようにコーティングしてください。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim a As Integer
a = TextBox1.Text
a = f(a)
TextBox2.Text = a.ToString
End Sub
Function f(ByVal a As Integer) As Integer
If a = 1 Then Return a
a = a * f(a - 1)
Return a
End Function
End Class
実行画面例
このプログラミングで注目は、f(a - 1)です。
プロシージャfが自分自身であるfを呼び出しています。
このような使用方法を、プロシージャの再帰的使用またはプロシージャの自己再帰といいます。
入れ子式人形のように、どんどんさらなる自己の内に遡及していっているのです。
自分とは何か、の探求を繰り返していく内に、入れ子式人形の一番小さい人形にたどり着くわけです。
７！とは、何かの問いにa * f(a - 1) によって、７×６！と答えます。
そして、次の問い では６！とは何か、に対して
a * f(a - 1) によって、６！＝６×５！であると答えます。
そして、第３の問い それでは５！とは？に対して、
a * f(a - 1) によって、５！＝８×４！
と答えます。
同じ問いを繰り返している内に、
ついに最後の入れ子式人形にたどり着きます。
１！です。この最後の問いにIf a = 1 Then Return a によって１であると答えています。
a=1なら1のまま返しなさいですから。
一番小さい入れ子式人形までいったら、今度は逆の途ををたどります。
一番小さい人形から一番大きい人形へと旅路を戻ります。
１！とは１です。
よって、２！とは２×１！＝２×１＝２です。
すると、３！は３×２！＝３×２＝６です。
以下同様に
４！は、４×３！＝４×６＝２４
５！は、５×４！＝５×２４＝１２０
６！は、６×５！＝６×１２０＝７２０
７！は、７×６！＝７×７２０＝５０４０
によって、７！の答えを出しています。
つまり、
７！とは？
６！とは？
５！とは？
４！とは？
３！とは？
２！とは？
１！とは？
と遡及していって、一番小さい人形１！にたどり着き、
１！とは１であると答え、
逆遡及の途が始まります。
２！とは２×１！＝２×１＝２
３！とは３×２！＝３×２＝６
４！とは４×１！＝４×６＝２４
５！とは５×４！＝５×２４＝１２０
６！とは６×５！＝６×１２０＝７２０
７！とは７×６！＝７×７２０＝５０４０
真の自分とは何か、の問いを遡及的に繰り返し、どんどん自分を覆っている化けの皮をはがしていって一番核心（本当の自分）にたどり着いたら、
逆の旅に出て今の偽りの自分を説明します。
会社ではいい人を装っているが、家では暴君、いったいその人の本質は？
これらの矛盾する自分を説明するためには、自分の本当の偽りのない姿をさらけ出して（遡及して）、
暴君やいい人であるという現象を見つめ直す（逆遡及）必要があります。
この遡及と逆遡及こそが、プロシージャの再帰的使用です。
入れ子式人形の一番大きい人形から、
入れ子式人形の一番小さい人形にたどり着いて、その人形の正体を暴き出したら、
逆遡及していき、ひとつ上の人形の正体を解明していく方法です。
Function f(ByVal a As Integer) As Integer
If a = 1 Then Return a
a = a * f(a - 1)
Return a
End Function
によって、確かに自分自身を呼び出しています。
言い換えれば、より深い自分の内に入っていっていますが、
入れ子式の外の人形と内の人形が別の人形であるように、
同じfでありながら別次元の自分です。
具体的にはf(5)とf(4)は、同じfですが、f(4)の方がより深い位置にある人形です。
TextBoxに7を入れた場合は、
７！すなわちf(7)からはじめ、
６！すなたちf(6)へ
５！すなたちf(5)へ
４！すなたちf(4)へ
３！すなたちf(3)へ
２！すなたちf(2)へ
１！すなたちf(1)へ
と遡及の旅をしますが、
f(7)、f(6)、f(5)、f(4)、f(3)、f(2)、f(1)は別の人形です。
同じfでも別次元のプロシージャが立ち上がっていると思った方がよいわけです。
次の課題です。順列
１２３，１３２，２１３，２３１，３１２，３２１
を作り出すプログラムを考えてみましょう。
最初は、For文などでこれを実現してみましょう。
3つの場合に成功したら、４つ、５つ、６つ、７つと増やしてみてください。
For文だと大変煩雑になることがわかると思います。
それに、For文だと下のように一般化することはほぼ不可能ではないでしょうか。
少なくとも私のぼんくらな頭では思いつきません。
実行例
しかし、プロシージャの再帰的使用を利用すると、一般化することもできます。
VC++講義第１部へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
数学研究室に戻る
