7 lines
123 B
Racket
7 lines
123 B
Racket
(define (concat li1 li2)
|
|
(if (empty? li2)
|
|
li1
|
|
(concat (append li1 (list (car li2))) (cdr li2))
|
|
)
|
|
)
|