hallo leuds!
Also ich hab eine Funktion linear definiert:

(verdoppeln '(1 2 3 4)) -> (1 1 2 2 3 3 4 4)

(define (verdoppeln xs)
(if (null? xs) '()
(append (list (car xs) (car xs))
(verdoppeln (cdr xs)))))

So und nu möchte ich es endrekursiv schreiben.

Ist dann doch

(define (verdoppeln xs)(verdoppeln_acc xs '()))

(define (verdoppeln_acc xs acc)
(if (null? xs) acc

(append (list (car xs) (car xs))

(verdoppeln_acc (cdr sx)))))

Also da fehlt noch was
help

(define (verdoppeln xs)(verdoppeln_acc xs '())) (define (verdoppeln_acc xs acc) (if (null? xs) acc (verdoppeln_acc (cdr xs) (append (list (car xs) (car xs))))))
So sollte es heissen.

wow, mit tags kann man es sogar lesen :) MoKrates

danke! war ja fast richtig

so jetzt gehts, allerdings ohne dein schönes append.


(define (verdoppeln xs) (verdop (reverse xs) '()))
(define (verdop xs acc)
(if (null? xs) acc
(verdop (cdr xs) (cons (car xs) (cons (car xs) acc)))))