Das Programm soll jedes dritte Atom in einer Liste auswählen. Beachten Sie, dass das letzte Atom 'p' aufgenommen werden sollte, aber es ist nicht. Vorschläge, warum das letzte Atom nicht ausgewählt wird.

(define (every3rd lst)
 (if (or (null? lst)            
      (null? (cdr lst)))     
  '()                        
  (cons (car lst)            
        (every3rd (cdr(cdr(cdr lst)))))))


(every3rd '(a b c d e f g h i j k l m n o p))

Value 1: (a d g j m)

Vielen Dank