如何将此 let/where 函数转换为 Haskell 中的 Lambda

Question

如何在 Haskell 中将此 let/where 函数转换为 lambda？

让语句形式：

calc x =    let ad5 x = x + 5
                sqr x = x * x
                dbl x = x * 2
            in
                ad5 . sqr . dbl $ x

凡申报表：

calc x = ad5 . sqr . dbl $ x
  where
        ad5 x = x + 5
        sqr x = x * x
        dbl x = x * 2

Lambda 形式？可能类似于 Get Prog 中的这个示例，其中首先声明变量，然后在底部定义：

sumSqrOrSqrSum4 x y =   (\sumSqr sqrSum ->
                        if sumSqr > sqrSum
                        then sumSqr
                        else sqrSum) (x^2 + y^2) ((x + y)^2)

Answer 1

想法是这个let 表达式：

let x = y in z

和这个 lambda 完全一样：

(\x -> z) y

其中y 被用作参数，因此绑定到x。

在你的情况下，这将导致：

calc x = (\ad5 sqr dbl -> (ad5 . sqr . dbl $ x))
         (\x -> x + 5)
         (\x -> x * x)
         (\x -> x * 2)

当然，除了这个练习之外，很少有人会真正这样写：)

Answer 2

对 lambda 的最简单直接的翻译是

calc = \x -> (x*2)*(x*2) + 5

虽然显然您可以使用基本数学来稍微简化该表达式。