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 函数时最多进行一次递归调用。