私は持っています :
type 'a box =
| Item of ('a * 'a box)
| Empty
関数を作成する必要がありますconcat
:
val concat : 'a box box -> 'a box
ボックスのボックスを連結します。引数の要素はすべて(同じ順序で)連結されて結果が得られます。
のような変数を作成する方法がわかりません'a box box
。
私がやろうとした:
let elt = Item(1, Item(2,Empty))
let elt2 = Item(elt, Item(20, Empty)),
しかし、失敗しました!なぜなのかご存知ですか?