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.