从命令式编程到函数式编程的转换[python到标准ML]

用函数语言表示和的常用方法是折叠。您可以通过在每次迭代中将和与r相乘来消除对索引(以及将int提升到另一个int的幂的函数)的需要:

fun eval radix lst = let
  fun f (element, sum) = sum * radix + element
in
  foldr f 0 lst
end

现在可以这样使用函数:

- eval 10 [1,2,3];
val it = 321 : int

可以使用显式递归遍历系数列表,对基数进行指数化,然后求和。

fun eval r =
    let fun step (power, sum) (coeff :: rest) =
                step (power * r, sum + coeff * power) rest
          | step (_, sum) nil = sum
    in step (1, 0)
    end

从结构上讲,这就像一个褶皱,如果我们用它来代替它,它会变得更清晰。

fun eval r lst =
    let fun step (coeff, (power, sum)) = (power * r, sum + coeff * power)
        val (_, sum) = foldl step (1, 0) lst
    in sum
    end

如KennyTM的评论所述,您可以颠倒使用Horner方案的操作顺序:这将导致SEPP2K的答案,它需要一半的乘法,但使用更多的堆栈空间。