IoPLMaterials

Edit this page Report an issue

MiniML3: 関数の導入

ここまでのところ，この言語には，いくつかのプリミティブ関数（二項演算子）しか提供されておらず，MiniML プログラマが（プリミティブを組み合わせて）新しい関数を定義することはできなかった．MiniML3 では，fun式による関数抽象と，関数適用を実装する．

関数式と適用式の構文

まずは，MiniML3 の式の文法を示す．

  e ::= ...
     | fun <識別子> -> <式>
     | e e

適用式は左結合（つまり，e1 e2 e3 と書くと (e1 e2) e3と解釈）で，他の全ての演算子よりも結合が強い（つまり e1 e2 + e3 とか書いたら (e1 e2) + e3と解釈）とする．

MiniML3 を実装するために，まず字句解析器と構文解析器を拡張しよう．MiniML2 に以下の変更を加えればよい．

syntax.ml

BNF の拡張に合わせて exp 型に新しいコンストラクタを追加する．

type exp = 
   ...
  | FunExp of id * exp (* New! *)
  | AppExp of exp * exp (* New! *)

parser.mly

新しいトークンである -> と fun に対応するトークン（RARROWとFUN）を宣言して，関数定義式と関数適用式を構文解析するための規則を追加する．（関数定義式を parse するための規則は自分で追加すること．）

%token RARROW FUN (* New! *)

Expr :
   ...
   | e=FunExpr { e }

(* fun x -> e を構文解析するための規則は自分で考えて追加すること． *)

MExpr :
    e1=MExpr MULT e2=AppExpr { BinOp (Mult, e1, e2) }
  | e=AppExpr { e } (* New! *)

(* New! *)
AppExpr :
    e1=AppExpr e2=AExpr { AppExp (e1, e2) }
  | e=AExpr { e }

上記の規則で，関数適用式の優先順位と結合が定められたとおりになっていること（他の演算子よりも強く，左結合であること）を確認されたい．

lexer.mll

リスト reservedWords に予約語を追加し，->をトークン FUN として切り出すように規則を追加する．

let reservedWords = [
   ...
  ("fun", Parser.FUN);
   ...
]
...
| "=" { Parser.EQ }
| "->" { Parser.RARROW } (* New! *)

評価器の拡張: 関数値の表現の仕方

さて，関数値をどのようなデータで表現すればよいか，すなわちfun x -> eという関数式を評価した結果をどう表現すればよいかを考えよう．この式を評価して得られる関数値は，何らかの値に適用されると，仮引数xを受け取った値に束縛し，関数本体の式eを評価する．したがって，関数値は少なくともパラメータの名前と，本体の式の情報を含んでいなければならない．であれば，以下のようにexvalを拡張して関数値のためのコンストラクタProcVを定義することが考えられる．

(* 注：これはうまくいかない *)
type exval =
  ...
  | ProcV of id * exp (* 仮引数と関数本体の情報だけで良いだろうか? *)
and dnval = exval

しかし，実際はこれだけではうまくいかない．以下の MiniML3 のプログラム 例を見てみよう．

let f =
  let x = 2 in (* (A) *)
  let addx = fun y -> x + y in
  addx
in
f 4

この先を読む前に，まず (1) このプログラムは何に評価されるべきかを考え，(2) 実際には何に評価されるかを OCaml インタプリタで確認すること．自分の考えと OCaml インタプリタの意見がずれている場合は，「プログラミング言語」のこの部分（特に「カリー化による複数引数関数の表現」のところをもう一度復習すること．

この例で定義している関数addxは受け取った値にxの値を加えて返す関数である．前述のように関数値を表現するとこのaddxはProcV("y", BinOp(Plus, Var "x", Var"y"))に束縛されるはずである．このプログラムがどのように走るかを見てみよう．

何が問題だったのだろうか？問題は，addxが束縛される関数式fun y -> x + yに 自由変数 x が含まれていることである．このxは，OCaml と同様に addxが定義された時点の xの値（すなわち，(A) の行で導入される束縛が有効）なのだが，関数値に仮引数と関数本体の式のみを含める現在の関数値では，このような関数式の自由変数が扱えない．このような自由変数を扱うためには，関数値に仮引数，関数本体の式に加えて，関数値が作られたときに自由変数が何に束縛されているか，すなわち現在の例ではxが 2 に束縛されているという情報を記録しておかなければならない．

というわけで，一般的に関数が適用される時には，

ここで作成するインタプリタでは，本体中の自由変数の束縛情報として，fun式が評価された時点での環境全体を使用する．これは，本体中に現れない変数に関する余計な束縛情報を含んでいるが，もっとも単純な関数閉包の実現方法である．

以上を踏まえて，eval.ml に加えるべき変更を以下に示す．

type exval =
    IntV of int
  | BoolV of bool
  | ProcV of id * exp * dnval Environment.t (* New! クロージャが作成された時点の環境をデータ構造に含めている．*)
and dnval = exval

let rec eval_exp env = function
  ...
  (* 関数定義式: 現在の環境 env をクロージャ内に保存 *)
  | FunExp (id, exp) -> ProcV (id, exp, env)
  (* 関数適用式 *)
  | AppExp (exp1, exp2) ->
      (* 関数 exp1 を現在の環境で評価 *)
      let funval = eval_exp env exp1 in
      (* 実引数 exp2 を現在の環境で評価 *)
      let arg = eval_exp env exp2 in
      (* 関数 exp1 の評価結果をパターンマッチで取り出す *)
      (match funval with
          ProcV (id, body, env') -> (* 評価結果が実際にクロージャであれば *)
              (* クロージャ内の環境を取り出して仮引数に対する束縛で拡張 *)
              let newenv = Environment.extend id arg env' in
                eval_exp newenv body
        | _ -> 
          (* 評価結果がクロージャでなければ，実行時型エラー *)
          err ("Non-function value is applied"))

Exercise 3.4.1 [必修]

MiniML3 インタプリタを作成し，高階関数が正しく動作するかなどを含めて テストせよ．

Exercise 3.4.2 [**]

OCaml での「(中置演算子)」記法をサポートし，プリミティブ演算を通常の関数と同様に扱えるようにせよ．例えば

let threetimes = fun f -> fun x -> f (f x x) (f x x) in
  threetimes (+) 5

は，20を出力する．

Exercise 3.4.3 [*]

OCaml の

fun x1 ... xn -> ...
let f x1 ... xn = ...

といった簡略記法をサポートせよ．

Exercise 3.4.4 [*]

以下は，加算を繰り返して 4 による掛け算を実現している MiniML3 プログラムである．これを改造して，階乗を計算するプログラムを書け．

let makemult = fun maker -> fun x ->
                 if x < 1 then 0 else 4 + maker maker (x + -1) in
let times4 = fun x -> makemult makemult x in 
  times4 3

Exercise 3.4.5 [*]

静的束縛とは対照的な概念として 動的束縛 (dynamic binding) がある．動的束縛の下では，関数本体は，関数式を評価した時点ではなく，関数呼び出しがあった時点での環境をパラメータ・実引数で拡張した環境下で評価される．インタプリタを改造し，fun の代わりに dfun を使った関数は動的束縛を行うようにせよ．例えば，

let a = 3 in
let p = dfun x -> x + a in
let a = 5 in
  a * p 2

というプログラムでは，関数 p 本体中の a は 3 ではなく 5 に束縛され，結果は，35になる．(fun を使った場合は 25 になる．)

Exercise 3.4.6 [*]

動的束縛の下では，MiniML4 で導入するような再帰定義を実現するための特別な仕組みや，このExerciseのようなトリックを使うことなく，再帰関数を定義できる．以下のプログラムで， 二箇所の fun を dfun (このExerciseを参照)に置き換えて(4通りのプログラムを)実行し，その結果について説明せよ．

let fact = fun n -> n + 1 in
let fact = fun n -> if n < 1 then 1 else n * fact (n + -1) in
  fact 5

TODO: 評価戦略の話？