R: Sammeln Zwischenausgang der rekursiven Funktion

Question

I eine rekursive Funktion haben, die die Ausgabe des vorherigen Anruf als den Eingang des nächsten Anrufs verwendet:

recurse_foo = function(input) { 
    if(identical(input, character(0))) return(NULL) 
    else { 
    uu = get_incremental_output(input) ## <-- interested in collecting this 
    return(recurse_foo(uu)) 
    } 
} 

Wie ersichtlich, die Terminal-Ausgabe ist nicht sehr interessant und ich bin daran interessiert, die Zwischenergebnisse zu sammeln, aber ich kann mir nicht vorstellen, dass das Wachstum einer globalen Liste oder irgendein anderer Nebeneffekt elegant wäre (was das Einzige ist, was mir einfällt).

Irgendwelche anderen Abstraktionen, die hier nützlich sein könnten?

Danke.

---

Konkretes Beispiel:

final_countdown = function(input) { 
    if (input/2 < 1) return(NULL) 
    else { 
    uu = input/2   # <-- interested in collecting this 
    print(uu) 
    return(final_countdown(uu)) 
    } 
} 

final_countdown(100) 

In diesem Fall bin ich daran interessiert, die Folge von uu s bei der Erhebung, die print ed sind.

Answer 1

Dies ist eine Lösung, wenn sämtliche Zwischenausgänge des gleichen Typs sind:

final_countdown = function(input) { 
    if (input/2 < 1) return(NA) 
    else { 
    c(input, final_countdown(input/2)) 
    } 
}