运行简单的 Haskell 程序时解析错误

Question

我刚刚开始学习 Haskell。我首先编写一个简单的函数，它接受两个值 n 和 x，然后显示用它计算的两个整数值。

test n x = do
    cell1 = round(n*n*x)
    cell2 = n*n - cell1
    print cell1
    print cell2

但是它没有运行并且一直给我一个Parse error on input `=' 错误。发生了什么？

Answer 1

你在 Monads 上遇到了第一个麻烦。您可能想要的是 let 块内的 let 语句

test n x = do
    let cell1 = round (n * n * x)
        cell2 = n * n - cell1
    print cell1
    print cell2

这里的不同之处在于您不能直接在 do 块内进行分配，因为所有 do 都会阻止对 >>= 和 >> 的调用的脱糖。 let 语句允许您像在函数定义中一样定义局部值，例如

f x =
    let y = 2 * x
        z = y * y * y
    in z + z + y

你的函数脱糖的方式就像

test n x =
    let cell1 = round (n * n * x)
        cell2 = n * n - cell1
    in (print cell1 >> print cell2)

>> 只是将两个单子动作链接在一起。请注意，这并不是真正的脱糖方式，我选择了在这种情况下等效的表示，但它并不是编译器实际生成的。