8 lines
235 B
Common Lisp
8 lines
235 B
Common Lisp
|
|
||
|
|
(defun my-append (list-one list-two)
|
||
|
|
(append-tail (reverse list-one) list-two))
|
||
|
|
|
||
|
|
(defun append-tail (reversed-list list-two)
|
||
|
|
(if (null reversed-list) list-two
|
||
|
|
(recur (rest reversed-list) (cons (car reversed-list) list-two))))
|