Reverse a list

	;; P05 (*) Reverse a list.
	(define (reverses lst)
	(let loop ((lst lst ) (acc '()))
	(if (null? lst)
	acc
	(loop (cdr lst) (cons (car lst) acc)))))

view raw p05.ss hosted with ❤ by GitHub