12 lines
228 B
Racket
12 lines
228 B
Racket
(define (concat li1 li2)
|
|
(if (empty? li2)
|
|
li1
|
|
(concat (append li1 (list (car li2))) (cdr li2))
|
|
)
|
|
)
|
|
|
|
(define (rev li1 li2)
|
|
(reverse (concat li1 li2))
|
|
)
|
|
(writeln (rev (list 1 2) (list 3 4)))
|