OK、私はあなたの質問を理解するかもしれないと思います。関数で始まるデータ構造は関数です!OCamlでは、関数はファーストクラスのオブジェクトであり、新しい関数を作成したり、データ構造に保持したりすることができます。物事を純粋に保つために、関数のテキスト表現にアクセスすることはできませんが(一部の言語ではアクセスできます)、関数を便利な方法で組み合わせることができます。
これが小さな例です。この関数maketest
は値を取り、k
をテストする関数を返しますk
。
# let maketest k = fun x -> x = k;;
val maketest : 'a -> 'a -> bool = <fun>
# let t8 = maketest 8;;
val t8 : int -> bool = <fun>
# t8 3;;
- : bool = false
# t8 8;;
- : bool = true
この関数union
は、2つのテスト関数(によって生成されたものなどmaketest
)を受け取り、2つの値のセットの和集合をテストする関数を返します。
# let union f g = fun x -> f x || g x;;
val union : ('a -> bool) -> ('a -> bool) -> 'a -> bool = <fun>
# let t812 = union t8 (maketest 12);;
val t812 : int -> bool = <fun>
# t812 8;;
- : bool = true
# t812 12;;
- : bool = true
# t812 14;;
- : bool = false
#
この関数sequence
は、2つのテスト関数(によって生成されたものなどmaketest
)を受け取り、2つの関数に一致するintで始まるリストを順番にテストします。
# let sequence f g = function
| []|[_] -> false
| a :: b :: _ -> f a && g b;;
val sequence : ('a -> bool) -> ('a -> bool) -> 'a list -> bool = <fun>
# sequence (maketest 1) (maketest 4) [1;4;7];;
- : bool = true
# sequence (maketest 1) (maketest 4) [1;8;7];;
- : bool = false
#
完全にはわかりませんが、文法の構成要素に対して、このような関数を作成するように求められていると思います。このような関数からパーサーを作成するには、入力ストリームの進行状況を追跡する必要があります。通常の方法は、解析関数が残りの(解析されていない)ストリームを返すようにすることです。