Scheme - Hinzufügen von Werten zur Liste rekursiv

Question

Ich versuche, eine Funktion in Schema zu machen, die rekursiv Werte auf eine leere Liste hinzufügt.

Ich habe eine leere Liste definiert:

(define empty '()) 

Und ich habe eine Funktion definiert, die Werte zur Liste hinzufügen sollte:

(define (recapp empt x) 
    (if (= 0 x) 
     empt 
     (begin 
     (append empt x) 
     (recapp empt (- x 1))))) 

Als ich nach Schema (recapp leer 5) Ich betrete bekomme eine leere Liste, obwohl ich gerne hätte (1 2 3 4 5). Was ist das Problem?

Dank für die Unterstützung aus.

Answer 1

Das Problem ist, dass (empt x anhängen) nicht den Wert von empt ändern. So sind vorbei Sie nur empt (Wert ‚()) durch recappX (ursprüngliches Argument Wert) mal.

(define (recapp empt x) 
    (if (= 0 x) 
     empt 
     (recapp (cons x empt) (- x 1)))) 

Ist näher an was Sie wollen. Beachten Sie auch die primative iota hat ähnliche Funktionen.