blob: f2ac60ea075d962ec78633e594c7c05fad01c985 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
;;;; License: CC0-1.0
(define-module (net ricketyspace sicp two eighteen)
#:use-module (net ricketyspace sicp two seventeen)
#:export (sicp-reverse))
(define (sicp-append list1 list2)
(if (null? list1)
list2
(cons (car list1) (sicp-append (cdr list1) list2))))
(define (sicp-reverse items)
(cond ((null? items) '())
(else (sicp-append (sicp-reverse (cdr items)) (list (car items))))))
|