Clojure：在列表中移动项目

Question

我有这个清单：

("a" "b" "c" "d" "e")

我想在第一个位置移动“d”：

("d" "a" "b" "c" "e")

有没有直截了当的方法呢？

修改

感谢您的回答。我看了一眼，然后就这样做了：

(defn move-item [data item-to-move]
    (conj (remove #(= % item-to-move) data) item-to-move))
(move-item ["a" "b" "c" "d" "e"] ["d"])

我不确定这是不是很好的设计，但它可以解决问题。

Answer 1

可能有用的功能：
1. rotate

user=> (defn rotate [xs] (cons (last xs) (drop-last xs)))
#'user/rotate
user=> (rotate '(1 2 3))
(3 1 2)

2。 replace

user=> (replace {1 4} [1 2 3 4])
[4 2 3 4]

Answer 2

如果您不需要太多的灵活性，那么我将寻求解构解决方案：

user=> (letfn [(des [{:strs [a b c d]}] [d a b c])]
         (des (set ["a" "b" "c" "d"])))
["d" "a" "b" "c"]
user=> 

使用set允许将元素用作键，可以使用:strs指令拆分和命名。然后，您只需按所需顺序返回元素。

我想宏应该允许你概括方法。

Answer 3

(defn move-last [coll]
    (cons (last coll) (drop-last coll)))

user=>(move-last '("a" "b" "c" "d"))
("d" "a" "b" "c")