9 lines
199 B
Scheme
9 lines
199 B
Scheme
#lang sicp
|
|
|
|
(define (reverse lst)
|
|
(define (rev-aux lst acc)
|
|
(if (null? lst)
|
|
acc
|
|
(rev-aux (cdr lst) (cons (car lst)
|
|
acc))))
|
|
(rev-aux lst '()))
|