Oz - 写一个更有效的功能

Question

如何以更有效的方式编写以下函数以减少递归调用的次数？

declare
fun {Calc N}
    if N == 0 then 2
    elseif N == 1 then 4
    elseif N == 2 then 8
    else {Calc N-1}+{Calc N-2}+{Calc N-3}
    end
end

Answer 1

我认为这就是你要找的东西：

declare
fun {Calc N}
   fun {CalcAux N A B C}
      if N==0 then A
      else {CalcAux N-1 B C A+B+C}
      end
   end
in
   {CalcAux N 2 4 8}
end

三个递归调用在您的版本中的单个语句中，它增加了对函数的调用次数，但每次计算语句时也增加了执行堆栈大小。使用三个累加器（A，B和C）允许我们在每次输入CalcAux函数时最多进行一次递归调用。