Поворот списка в схеме

Question

(поворот «(ABCDE)) должен возвращать ((ABCDE) (bcdea) (cdeab) (deabc) (eabcd))

Здесь я реализовал логику в shceme, но я столкнулся проблема может кто-нибудь помочь мне sovling этот

Вот мой код

(define (rotate lst) 
    (define (iter l cycles result) 
    (cond 
     ((= cycles 0) (cons lst result)) 
     ((< cycles 0) result) 
     (else   (let ((cycled (cycle l))) 
         (iter cycled (- cycles 1) (append result (list cycled))))))) 
    (iter lst (- (length lst) 1)())) 


(rotate '(a b c d e)) 

Answer 1

Вы не были так далеко:

(define (rotate lst) 
    (define (iter lst cycles res) 
    (cond 
     ((= cycles 0) (reverse res)) 
     (else   (iter (append (cdr lst) (list (car lst))) 
          (- cycles 1) 
          (cons lst res))))) 
    (iter lst (length lst) null)) 

• Не нужно проводить различие между циклами = 0, циклы> 0 и циклы < 0; достаточно одного базового футляра и одного рекурсивного футляра
• Что такое (cycle l)? Он определен где-то в другом месте?