7 lines
150 B
Plaintext
7 lines
150 B
Plaintext
|
(define (reverse l)
|
||
|
(define (reverse-acc l acc)
|
||
|
(if (null? l)
|
||
|
acc
|
||
|
(reverse-acc (cdr l) (cons (car l) acc))))
|
||
|
(reverse-acc l '()))
|