Sml 元组长度

如何解决Sml 元组长度

我想知道是否有可能获得 sml 元组长度的方法？！看例子

val tes = ((1,"test"),("test","some")) 
Lenght(tes) = 2

我想用它来解决问题，有一个问题是要获取包​​含每个学生信息列表的学生列表，但学生信息在两种类型中有所不同，有些就像

(1,"test","nick") 

有些像

("name","nick")

所以它想返回学生列表中每个列表的第一个元素，如下所示：

((1,"nick"),("test2","nick2"),(2,"test3","nick3"))

Return > (1,"test2",2)

这里有更多信息 M Molbdnilo @molbdnilo

解决方法

您最有可能执行的操作的示例；定义一些有用的和类型。

首先，让我们发明两种方法来识别一个人：

datatype Person = JustName of string
                | NameAndNumber of string * int

datatype Identifier = Name of string
                    | Number of int

然后你可以得到一个Identifier的{​​{1}}：

Person

让我们和一些人一起测试：

fun identifier (JustName n) = Name n
  | identifier (NameAndNumber (_,i)) = Number i