Question

我是sml的新手，并且内部函数的语法有问题。我需要做的是获取一个int列表的列表，平均每个列表，并返回一个reals列表。这是我到目前为止的伪代码。

 fun listAvg [] = 0  
    else (sum (x) div size (x))

        fun sum[] = 0
        | sum(head::rest)= head + sum rest;


        fun size [] = 0
        | size(head::rest) = 1 + size rest;

    listAvg([[1,3,6,8,9], [4,2,6,5,1], [9,5,9,7], [5,4], [3,6,4,8]]);

任何建议都将不胜感激。谢谢！

Answer 1

使用let，如

fun listAvg [] = 0  
  | listAvg x =
    let
        fun sum[] = 0
          | sum(head::tail)= head + sum tail;
        fun size [] = 0
          | size(head::tail) = 1 + size tail;
     in
         (sum x) div (size x)
     end

您必须将int list传递给此功能，例如

listAvg [1, 2, 3, 4];

除了重新排列订单并放置关键字let，in和end之外，您的代码无需更改。如果这不是作业，我建议在List结构中使用一些内置的标准库函数，这些函数可以将此函数减少到两行，包括空列表上的模式匹配。

修改：

“平均一份清单列表”有两种可能的含义。第一个是平均每个列表，然后取平均值的平均值，第二个是将列表一起加入一个长列表，并取整个列表的平均值。当所有的整数列表具有相同的长度时，这两种方法是等效的（舍入误差除外），但正如您的示例所示，它们不必具有相同的长度。

由于这是作业，我不打算直接给你答案，但请考虑以下内容，这可能会有所帮助：

如果您正在使用“平均一个int列表的平均列表：”的第一个解释，则有一个内置的SML函数，它允许您将另一个函数应用于列表的每个元素，并获得结果列表。这可能有助于获得个人平均值，然后您可以将它们组合成一个总体平均值。

如果您正在使用第二种解释：有一个内置的SML函数（它看起来像一个运算符，但许多看起来像SML中的运算符的东西只是中缀函数）将两个列表连接在一起，并且一个内置的SML函数，用于将函数应用于列表中的元素以及累加器值，以生成单个值。您可以使用这两个函数创建一个包含所有数字的长列表，然后可以对其进行平均。

SML NJ的内部函数

1 个答案: