5 lines
181 B
Clojure
5 lines
181 B
Clojure
|
(defn insert-after [new old ls]
|
||
|
|
(cond (empty? ls) ls
|
||
|
|
(= (first ls) old) (cons old (cons new (rest ls)))
|
||
|
|
:else (cons (first ls) (insert-after new old (rest ls)))))
|