标准SML数据类型列表

Question

Datatype events = enter of string * real | exit of string *real; 

所以我有这个数据类型，我必须编写一个函数，将事件列表作为输入，并返回按事件的实际部分排序的列表。 我试图编写一些函数，但是没有想到任何好的方法，主意？

这是我尝试的代码：

val rec ordina = fn 
     [] => []
    |v1::v2::l => if (#2(v2)) > (#2(v1)) 
                  then ordina (v1::l)
                  else oridna (v2::1);

我得到的错误：

poly：错误：找不到固定的记录类型。 在＃2附近发现

poly：错误：找不到固定的记录类型。 在＃2附近发现

Answer 1

一些反馈，

• 数据类型声明可能应该是

   datatype event = Enter of string * real | Exit of string * real 

  一个值包含一个事件。

  通过具有例如类型事件列表的值来实现复数。

  值构造函数通常以大写的起始字母编写。

• 在SML / NJ中，您有一个名为ListMergeSort.sort的通用排序函数。 where 'a = event in this case. 它采用类型为的函数，其中'a =事件在这种情况下。 然后，您可以编写一个函数，

   fun cmp_event (event_a, event_b) = ... 

  返回是否event_a前应责令event_b根据自己的实际零件。 提示：首先，创建一个辅助函数以提取实部。 （用一个更好的名字来反映真实部分的目的。）

   fun get_real_part (Enter (_, r)) = ... | get_real_part ... = ... 

• 如果不允许使用ListMergeSort.sort ，则进行自己的排序 。