Haskell 返回有多少输入大于其平均值

Question

我对 haskell 很陌生，编写了一个简单的代码来返回有多少输入大于其平均值。我收到错误：

错误文件:.\AverageThree.hs:5 - 应用程序中的类型错误 * 表达式：xyz 期限：x 类型：Int * 不匹配：a -> b->

代码：

averageThree :: Int -> >averageThree :: Int ->整数->整数->漂浮
平均三 xyz = (fromIntegral x+ fromIntegral y+ fromIntegral z)/3

howManyAverageThree ::Int ->整数->整数-> INT
howManyAverageThree xyz = 长度 >平均三

有人帮助我吗？

Answer 1

您遇到的麻烦来自几个地方。

首先，您没有应用 length 或 averageThree 函数，因此也没有使用 howManyAverageThree 的参数。

其次，length的类型为[a] ->整数。由于这里没有列表，因此您要么必须使用不同的函数，要么创建一个列表。

如果我正确理解您想要的算法，您将需要做一些事情：

1. 将 x y 和 z 应用于 averageThree。
2. 使用filter函数，比较这个计算结果每个传入参数的平均值；这将产生一个列表。
3. 求出结果列表的长度。

我匆忙执行此操作的代码如下：

howManyAverageThree ::Int -> Int -> Int -> Int
howManyAverageThree x y z = length $ filter (> avg) the_three
    where avg = averageThree x y z
          the_three = [fromIntegral x,fromIntegral y,fromIntegral z]

这利用了几个简洁的功能：

1. 柯里化，有时称为 “部分功能应用”。这就是我使用的 (> avg);通常，中缀函数 > 接受两个相同类型的参数，并返回一个 Bool - 通过用括号括起来并在一侧提供一个表达式，我已经部分应用了它，这使得它可以用作过滤器函数
2. where 关键字。我用它来清理它并使其更具可读性。
3. 我上面提到的 filter 函数。
4. 使用 $ 的函数应用程序。该运算符只是将函数应用从左关联更改为右关联。

Answer 2

这里有很多问题：

• length 没有达到您想要的效果。 length 返回列表的长度，并且您的 howManyAvergageThree

  中没有列表

• averageThree 返回 Float。 howManyAverageThree 需要考虑到这一点。具体来说，> 需要其参数具有相同类型。

• 第二个函数中对 averageThree 的调用需要一些参数。

这是一个工作版本：

howManyAverageThree x y z = length [ i | i <- [x, y, z], fromIntegral i > avg]
        where avg = averageThree x y z