将字符串转换为整数ML的递归函数

Question

我需要在 ML 中编写自己的递归函数，该函数以某种方式使用 ord 将一串数字转换为整数类型。我可以使用辅助函数，但显然我应该能够在不使用辅助函数的情况下做到这一点（根据我的教授的说法）。

我可以假设输入是有效的，并且是一个正整数(当然是字符串类型)。

因此，调用str2int（"1234"）应该输出1234： int

我假设我需要在某个时候使用爆炸和内爆，因为 ord 对字符进行操作，而我的输入是一个字符串。任何方向将不胜感激。

Answer 1

这是我想到的：

js prettyprint-override">fun pow10 n =
    if n = 0 then 1 else 10*pow10(n-1);

fun str2help (L,n) =
    if null L then 0 
    else (ord(hd L)-48) * pow10(n) + str2help(tl L, n-1);

fun str2int (string) =
    str2help(explode string, size string -1);
    
str2int ("1234");

Answer 2

您可以定义一个助手函数< code>charsToInt来从左到右处理字符串中的数字。在每一步中，它将最左边的数字< code>c转换成一个数字，并与< code>n的10x倍数(它是所有先前解析的数字的中间和)进行加法运算...

fun charsToInt ([], n) = n
  | charsToInt (c :: cs, n) = charsToInt (cs, 10*n  + ord c - 48)

val n = charsToInt (explode "1024", 0)  

为您提供：val n=1024:int

正如您所看到的，诀窍是在每次递归调用时将中间结果向下传递到下一步。这是处理此类问题时非常常见的技术。

Answer 3

既然你问了，我想我可以毁了你所有的乐趣。这将解决你的问题，但讽刺的是，它不会帮助你。

好吧，字符#'0'的序数是48。所以，这意味着如果您减去表示数字的任何序数，则数字48您将获得其十进制值。例如

ord(#"9") - 48

产量9。

因此，一个函数将一个表示0-9之间的数字的给定字符转换成相应的十进制数:

fun charToInt(c) = ord(c) - 48

假设你有一串数字，比如“2014”。然后，您可以先将字符串分解为字符列表，然后将每个字符映射到其相应的小数。

例如

val num = "2014"
val digits = map charToInt (explode num)

< code>explode函数是一个辅助函数，它获取一个字符串并将其转换为一个字符列表。

现在数字将是一个整数列表，表示十进制数[2,0,1,4]；

然后，您所需要的只是应用 10 的幂来获得最终整数。

2 * 10 ^ 3 = 2000
0 * 10 ^ 2 = 0
1 * 10 ^ 1 = 10
4 * 10 ^ 0 = 4

结果将是2000 0 10 4=2014