我如何转换这个：
[a b c d e]
或者这个：
(e d c b a) ;(rseq [a b c d e])
到此：
[a[b[c[d[e]]]]]
我一直在绞尽脑汁，我觉得有一个简单的解决方案！：-\
最终我想这样做：
[a b c d e]
[a b c x y]
[a b c d j k]
如下：
{a {b {c {d {e}
{j {k}}
{x {y}}}}
我认为conj将有助于
（更新：在原始问题答案下方的编辑中添加新问题的答案。）
事实上，我最近在#clojure中已经回答了这个问题。
这里有两种方法：f几乎是直接转换为代码的规范，但它会创建一个seq——(next xs)——在每一步都会立即注入一个新的向量；g是一个更好的版本，它只分配输出中实际发生的对象，加上一个向量和遍历它的seq链接：
;; [1 2 3] -> [1 [2 [3]]]
;; naive, quadratic:
(defn f [xs]
(if (next xs)
[(first xs) (vec (f (next xs)))]
(vec xs)))
;; only allocates output + 1 vector + a linear number of seq links,
;; linear overall:
(defn g [v]
(reduce (fn [acc x]
[x acc])
[(peek v)]
(rseq (pop v))))
注：。我忽略了向量运算中常见的对数因子（所以这是软O复杂性）。
至于生成嵌套映射，上面的内容并不是特别有用。这里有一种方法：
(defn h
([v]
(h nil v))
([m v]
(assoc-in m v nil)))
(h [1 2 3 4])
;= {1 {2 {3 {4 nil}}}}
(def data
'[[a b c d e]
[a b c x y]
[a b c d j k]])
(reduce h {} data)
;= {a {b {c {x {y nil}, d {j {k nil}, e nil}}}}}
我使用nil作为"终止符"，因为{y}（目前在答案文本中找到）不是一个格式良好的文字。如果您计划调用这些映射作为检查是否存在密钥的函数，true可能是一个更方便的选择。
这里更简单的解决方案（使用析构函数和非尾部递归）：
http://ideone.com/qchXZC
(defn wrap
([[a & as]]
(if-let [[b & cs] as]
[a (wrap as)]
[a])))