(define reverse!!
(lambda (s)
(let loop ((r '()) (s s))
(if (null? s) r
(let ((d (cdr s)))
(set-cdr! s r)
(loop s d))))))
reverse
最新推荐文章于 2023-05-01 15:14:37 发布
(define reverse!!
(lambda (s)
(let loop ((r '()) (s s))
(if (null? s) r
(let ((d (cdr s)))
(set-cdr! s r)
(loop s d))))))