在 Haskell 中输入“=”时解析错误

Question

我在 Haskell 中编写了以下函数

coordenadas :: (Floating a) => String -> (a, a, a)
coordenadas linea = (x, y, z)
    where  (_ : xStr : yStr : zStr : _) = words linea
           x = read $ tail xStr :: Float
           y = read $ tail yStr :: Float
           z = read $ tail zStr :: Float

这个函数是用来接收像"N1 X2 Y1 Z10"这样的字符串并产生像(2, 1, 10)这样的元组，但是当我尝试编译它时，编译器说x = read $ tail xStr :: Float行中有一个parse error on input '='。

有人知道怎么解决吗？

感谢您的回答。

Answer 1

我搞定了：

coordinates :: String -> (Float, Float, Float)
coordinates line = (x,y,z)
    where   (_ : xStr : yStr : zStr : _) = words line
            x = read $ tail xStr :: Float
            y = read $ tail yStr :: Float
            z = read $ tail zStr :: Float

main = do
    let line = "test x1.0 y1.0 z1.0 test"
    print $ coordinates line

这会按预期输出(1.0, 1.0, 1.0)。

我自己对 Haskell 有点陌生，所以我不知道为什么它对缩进很挑剔（并且希望得到比我了解更多的人的指点！），但显然正确的做法是：

• tab，where，再次tab，然后输入第一行
• tab 3 次，然后将以后的行与那一行对齐

（注意：在我的编辑器中，“制表符”是“4 个空格”，而不是制表符）

编辑：我想我刚刚明白了为什么很难排好队：语法高亮！我的编辑将“where”加粗，使其变宽，从而使正确的缩进看起来不正确。我实际上通过关闭突出显示来确认这一点，只要线条彼此对齐，它似乎就可以工作。

这也意味着这种方式可能避免了类似的问题：

coordinates :: String -> (Float, Float, Float)
coordinates line = (x,y,z)
    where 
        (_ : xStr : yStr : zStr : _) = words line
        x = read $ tail xStr :: Float
        y = read $ tail yStr :: Float
        z = read $ tail zStr :: Float