Wie eine Funktion zu tun, die

Question

Zum Beispiel in diesem Fall in einer Liste all den Baumes Zweig als String zurückgeben sollte es zurückgeben („casa“ „caso‚cal‘‚Cola‘‚Koma‘‚cena‘)

ich habe dies getan, versuchen Schwanz Rekursion zu verwenden.

(define (palabras-tree tree) 
    (palabras-tree-aux '() tree)) 

(define (palabras-tree-aux l tree) 
    (if (leaf? tree) 
     (cons (symbol->string (root tree)) l) 
     (cons (symbol->string(root tree)) 
      (fold-right append '() (map (lambda (t) 
              (string-append (symbol->string (root t))) 
              (palabras-tree-aux l t)) (children tree)))))) 

Aber es gibt diese: {} casaololamoena

Danke für die Hilfe

Answer 1

Hier ist eine mögliche Implementierung, ohne Endrekursion (mit DrRacket getestet):

(define (all-names tree) 
    (let ((first-char (symbol->string (root tree)))) 
    (if (leaf? tree) 
     (list first-char) 
     (map (lambda (el) (string-append first-char el)) 
      (append-map all-names (children tree))))))