gpt4 book ai didi

polymorphism - Ocaml 多态记录类型不太通用

转载 作者:行者123 更新时间:2023-12-02 04:03:39 24 4
gpt4 key购买 nike

给定以下类型:

 type ('props,'state) reactInstance =
{
props: 'props;
state: 'state;
updater:
'event .
(('props,'state) reactInstance -> 'event -> 'state) ->
('props,'state) reactInstance -> 'event -> unit;}

我正在努力实现:

let rec updater f instance event =
let nextState = f instance event in
let newInstance =
{ props; state = nextState; updater } in
()

let newInstance =
{ props; state = (reactClass.getInitialState ()); updater }

我给了更新程序一个类似 forall 的类型定义。我的主要动机是因为更新程序将被事件调用。事先不知道该事件会是什么。它可以是用户界面上的点击或按键等。

updater内部发生的问题{ props; state = nextState; **updater** } 上的定义:

Error: This field value has type
(React.reactInstance props#1618 state#1200 => 'a => state#1200) =>
React.reactInstance props#1618 state#1200 => 'a => unit
which is less general than
'event.
(React.reactInstance 'props 'state => 'event => 'state) =>
React.reactInstance 'props 'state => 'event => unit

为什么会出现这种情况 let rec updater...updater而不是用 updater 定义记录时在let newInstance ?我该如何解决这个问题?

最佳答案

您正在执行所谓的“多态递归”。这是一个递归函数,可以在每个递归循环中对不同类型进行调用。在你的例子中,它的类型没有太大不同,但是将函数放入带有 forall 的容器中。

已知多态递归无法确定推断,因此您需要使用 polymorphic annotation 来帮助类型检查器。 。在这种情况下,还需要eta扩展实例函数(参见ivg的其他答案)。这是最终结果。请注意,您的函数缺少参数。

type ('props,'state) reactInstance = {
props: 'props;
state: 'state;
updater:
'event .
(('props,'state) reactInstance -> 'event -> 'state) ->
('props,'state) reactInstance -> 'event -> unit;}

let rec updater
: 'event .
'props ->
(('props,'state) reactInstance -> 'event -> 'state) ->
('props,'state) reactInstance -> 'event -> unit
= fun props f instance event ->
let nextUpdater f i e = updater props f i e in
let nextState = f instance event in
let newInstance =
{ props; state = nextState; updater = nextUpdater } in
()

关于polymorphism - Ocaml 多态记录类型不太通用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40574396/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com