sml - テストを評価するには？

Question

このテストを次のように定義した場合:

val neg = Test (fn x => x < 0, "neg");

これをテストするにはどうすればよいですか？私は試した

neg 3;

しかし、私はエラーが発生します...

Answer 1

見た目からすると、Testは値コンストラクターであるため、内部のペアにアクセスする前に「ラップを解除」する必要があります。

このようなものは仕事をするべきです

val Test (f, s) = Test (fn x => x < 0, "neg")
f 3

Answer 2

テストをアンラップして実行する関数を用意することで、それを行うことができます。

fun runtest Test(f,s) x = f x

その後、あなたはするでしょう

runtest neg 3