トップ > Script-Fuスクリプトの制作 >
プログラミング言語Schemeの基礎を学ぶ(その5)

制御文は、スクリプトの流れを制御するためのものです。 例えば、

1. 入力された数値が偶数なら○○をしなさい
2. そうでなければ△△をしなさい

のように、条件に応じて実行させたい内容が変わることもあるでしょう。 そのような場合に利用するのが制御文です。

プログラミング言語Schemeにはいくつもの制御文が用意されていますが、本ウェブサイトでは、

1. 手続き if
2. 手続き while

の2つについて紹介します。

手続き ifはとても利用頻度の高い制御文で、

1. もし○○なら△△をしなさい
2. そうでなければ□□をしなさい

という制御を行うためのものです。

では、手続き ifを実際に利用してみましょう。 スクリプトファイル myscript.scm を以下のように書き換えてください。

7行目から14行目の、

(if (even? innumber)
    (begin
        (gimp-message (string-append (number->string innumber) " is Even."))
    )
    (begin
        (gimp-message (string-append (number->string innumber) " is Odd."))
    )
)

という部分が、新たに登場した手続き ifの部分です。 7行目の手続き ifに続く、

(even? innumber)

という部分が条件になります。 カッコで囲まれていることからわかるように、この条件の部分も手続き even?から始まる命令です。

手続き even?は、引数で与えられたデータが偶数かを判定するためのものです。 今回の例では、変数 innumberの値が偶数かを判定します。

条件を満たしている場合、つまり、変数 innumberの中身が偶数であれば8行目から10行目が実行されます。 それ以外なら11行目から13行目が実行されます。 つまり、今回のスクリプトは変数 innumberが偶数か奇数かを表示するだけのものです。

では、実行しましょう。

1. ウィンドウ下部に "3 is Odd." と表示される

上図のようにウィンドウ下部に "3 is Odd." と表示されます。 ちゃんと偶数・奇数が判定されました。

では、偶数の場合も試してみましょう。 スクリプトファイル myscript.scm を以下のように修正します。

4行目を、

(innumber 3)

から、

(innumber 10)

に修正しただけです。 では、実行しましょう。

2. ウィンドウ下部に "10 is Even." と表示される

上図のようにウィンドウ下部に "10 is Even." と表示されます。 偶数の場合もきちんと判定されました。

手続き ifの中には手続き beginがありますが、手続き beginは省略できることもあります。 手続き beginを省略できるのは、命令を1つしか含まない場合です。

作成中のスクリプトは、

(begin
    (gimp-message (string-append (number->string innumber) " is Even."))
)
(begin
    (gimp-message (string-append (number->string innumber) " is Odd."))
)

のように、条件を満たす場合も満たさない場合も、それぞれ1つの命令しか実行していません。 手続き gimp-messageによるメッセージの表示しか行っていません。

このような場合には手続き beginを省略することができます。 では、スクリプトファイル myscript.scm を以下のように修正してください。

修正したのは8・9行目で、手続き beginによる囲みを無くしました。

それでは、実行してみましょう。

1. ウィンドウ下部に "10 is Even." と表示される

上図のようにウィンドウ下部に "10 is Even." と表示されます。 8行目だけが実行され、9行目は実行されていないことがわかります。

では、奇数の場合も試してみましょう。 スクリプトファイル myscript.scm を以下のように修正します。

4行目を、

(innumber 10)

から、

(innumber 3)

に修正したのみです。 では、実行しましょう。

2. ウィンドウ下部に "3 is Odd." と表示される

上図のようにウィンドウ下部に "3 is Odd." と表示されます。 偶数の場合もきちんと判定されました。

条件を満たさない場合の命令が不要な場合には、

(define (myscript)
    (let
        (
            (innumber 3)
        )

        (if (even? innumber)
            (begin
                (gimp-message (string-append (number->string innumber) " is Even."))
            )
        )
    )
)

のように、条件を満たす場合の命令のみ記述すればよく、

(define (myscript)
    (let
        (
            (innumber 3)
        )

        (if (even? innumber)
            (gimp-message (string-append (number->string innumber) " is Even."))
        )
    )
)

のように、手続き beginを省略することももちろんできます。

続いて紹介するのは手続き whileです。 手続き whileは、

1. もし○○なら△△を繰り返しなさい

という制御を行うためのものです。 条件を満たしている間は処理を繰り返します。

では、手続き whileを実際に利用してみましょう。 スクリプトファイル myscript.scm を以下のように書き換えてください。

10行目から14行目の、

(while (> innumber 0)
    (set! outnumber (* outnumber innumber))

    (set! innumber (- innumber 1))
)

の部分が、新たに登場した手続き whileの部分です。 10行目の手続き whileに続く、

(> innumber 0)

という部分が条件になります。 カッコで囲まれていることからわかるように、この条件の部分も手続き >から始まる命令です。

手続き >は、引数で与えられた2つの数値の大小を判定するためのものです。 今回の例では、変数 innumberの値が 0(ゼロ) より大きいかを判定します。

条件を満たしている間、つまり、変数 innumberの中身が1以上である間は11行目から13行目が繰り返し実行されます。

繰り返しの内部では、

1. 変数 outnumberに変数 innumberの値を乗算する
2. 変数 innumberから 1 を引く

という命令が実行されています。 つまり、変数 innumberの初期値である 5 の階乗(5 x 4 x 3 x 2 x 1)を求めています。

では、実行しましょう。 階乗の結果は 120 になるはずです。

1. ウィンドウ下部に "Number is 120" と表示される

上図のようにウィンドウ下部に "Number is 120" と表示されます。 希望していた通りの結果が得られました。

制御文には複数の条件を指定することもできます。 例えば、

1. 変数 innumberが偶数
2.       かつ
3. 変数 innumberが 0(ゼロ) より大きい

という具合です。 これを実際のスクリプトで記述するには、

(if (and (even? innumber) (> innumber 0))
    (gimp-message "Yes!!")
)

と記述します。 手続き andで囲むことで、複数の条件を "かつ" でつなげることができます。

同様に、

1. 変数 innumberが偶数
2.       または
3. 変数 innumberが 0(ゼロ) より大きい

としたい場合には、

(if (or (even? innumber) (> innumber 0))
    (gimp-message "Yes!!")
)

と記述します。 手続き orで囲めば "または" でつないだことになります。

条件は否定で記述することもできます。 例えば、

1. 変数 innumberが偶数ではない

という具合です。 これを実際のスクリプトで記述するには、

(if (not (even? innumber))
    (gimp-message "Odd!!")
)

と記述します。 手続き notで囲むことで、条件を否定で記述することができます。