|
|
@ -101,8 +101,7 @@ |
|
|
|
|
|
|
|
|
|
|
|
;=============== concat ====================== |
|
|
|
;=============== concat ====================== |
|
|
|
(define (concat left right) |
|
|
|
(define (concat left right) |
|
|
|
((reduce-right right (lambda (current accumulator) (cons current accumulator))) |
|
|
|
((reduce-right right cons) left)) |
|
|
|
left)) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(assert-eq "concat test 1 failed" |
|
|
|
(assert-eq "concat test 1 failed" |
|
|
|
'(1 2 3 4 5) |
|
|
|
'(1 2 3 4 5) |
|
|
|