Предполагается, что программа выберет каждый третий атом в списке. Обратите внимание, что последний атом «p» должен быть поднят, но это не так. Любые предложения относительно того, почему не выбран последний атом.

(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)

Спасибо