Блог

Можно ли вставить новый элемент в N-ю позицию списка без conj?

 defn insert-at [x xs n]
  (let [[before after] (my-drop xs (dec n))]
    (if (empty? after)
      (if (= (count before) (dec n))
        (concat before (replicate 1 x))
        before)
      (concat before (conj after x)))))
 

Используйте разделитель и вставьте новый элемент между двумя половинами списка:

 (defn list-insert [lst elem index]
  (let [[l r] (split-at index lst)]
    (concat l [elem] r)))
 

Примеры:

 (list-insert '(1 2 3 4 5) 0 0)
=> (0 1 2 3 4 5)
(list-insert '(1 2 3 4 5) 1 1)
=> (1 1 2 3 4 5)