还是两个字，递归。
具体解法how to design programs网站上面有，你画一个递归的流程图就看出来了。

另外，大部分问题推荐的参考书就是，
The Little Schemer.

（f l）＝（cons （cadr l）
（f （cons （car l）
（cddr l））））

不带'() 检查可乎？
(define rright
(lambda(origin mylist)
(cond ((= (length mylist) 1) (append mylist origin))
(else (rright (cons (car mylist) origin) (cdr mylist))))))
(rright '() '(1 2 3))

带'() 检查多写一行，所以……

(define(rotate-right lst)
(if (null? (cdr lst))
lst
(
(lambda (r)
(cons
(car r)
(cons (car lst) (cdr r))
)
)
(rotate-right (cdr lst))
)
)
)
(define(rotate-left lst)
(define (append-one lst x)
(if (null? lst)
(cons x '())
(cons (car lst) (append-one (cdr lst) x))
)
)
(append-one (cdr lst) (car lst))
)