5

我仍然非常想进入haskell，但我注意到一些让我很恼火的事情。

在“Learn You a Haskell for Great Good！”一书中 有这部分显示了在模式匹配中使用警卫，在这本书的情况下，它是一个计算一个人的 bmi 的小函数，它有点像这样（部分略有改变，不侵犯版权或其他） ：

bmiCalc :: (RealFloat a) => a -> a -> String
bmiCalc weight height
    | bmi <= 18.5 = "skinny"
    | bmi <= 25.0 = "normal"
    | bmi <= 30.0 = "fat"
    | otherwise   = "obese"
    where bmi = weight / height ^ 2

这一切都很好，代码像宣传的那样工作，但我想，如果它也显示它计算的 bmi 和文本怎么办？

所以我重写了代码：

bmiCalc :: (RealFloat a) => a -> a -> String
bmiCalc weight height
    | bmi <= 18.5 = "skinny, " ++ show bmi
    | bmi <= 25.0 = "normal, " ++ show bmi
    | bmi <= 30.0 = "fat, "    ++ show bmi
    | otherwise   = "obese, "  ++ show bmi
    where bmi = weight / height ^ 2

期望“show”像 .toString 在 java 和 c#
Boy 中一样工作，我错了。

ghci 给了我这个严重的错误信息：

Could not deduce (Show a) arising from a use of `show'
from the context (RealFloat a)
  bound by the type signature for
             bmiCalc :: RealFloat a => a -> a -> String
  at file.hs:1:16-48
Possible fix:
  add (Show a) to the context of
    the type signature for bmiCalc :: RealFloat a => a -> a -> String
In the second argument of `(++)', namely `show bmi'
In the expression: "skinny, " ++ show bmi
In an equation for `bmiCalc':
    bmiCalc weight height
      | bmi <= 18.5 = "skinny, " ++ show bmi
      | bmi <= 25.0 = "normal, " ++ show bmi
      | bmi <= 30.0 = "fat, " ++ show bmi
      | otherwise = "obese, " ++ show bmi
      where
          bmi = weight / height ^ 2
Failed, modules loaded: none.

这是为什么？为什么它不允许我将似乎返回字符串的内容附加到字符串？我的意思是据我所知"skinny, " ++ show bmi是一个字符串......这正是类型签名所说的我必须返回的内容

那么我在这里做错了什么？

4

2 回答 2

9

将类型签名更改为：

bmiCalc :: (RealFloat a, Show a) => a -> a -> String

因为要使用成员函数show，来自Showtypeclass；但是您没有在函数约束中指定它，并且 ghci 无法推断它是正确的。

于 2013-06-28T22:20:30.727 回答
2

RealFloat 不是可展示的类型。您必须添加一个显示约束。

于 2013-06-28T22:20:46.797 回答