7 lines
173 B
Racket
7 lines
173 B
Racket
(define (concat li1 li2)
|
|
(if (empty? li2)
|
|
li1
|
|
(concat (append li1 (list (car li2))) (cdr li2))
|
|
)
|
|
)
|
|
(writeln (concat (list 1 2 3) (list 3 4 5))) |