9 lines
246 B
Plaintext
9 lines
246 B
Plaintext
|
(define (deep-reverse l)
|
||
|
(define (reverse-acc l acc)
|
||
|
(cond ((null? l) acc)
|
||
|
((pair? (car l))
|
||
|
(reverse-acc (cdr l) (cons (deep-reverse (car l)) acc)))
|
||
|
(else
|
||
|
(reverse-acc (cdr l) (cons (car l) acc)))))
|
||
|
(reverse-acc l '()))
|