Clojure 列表操作

Question

我想以这种方式获取列表并生成子序列:

(subs '(1 2 3))
; should evaluate to ((1) (1 2) (1 2 3) (2) (2 3) (3))

是的，订单很重要。我可能会遗漏一些明显的东西，但我被卡住了。漂亮解决方案的奖励积分!

Answer 1

再来一张，短一点。

(defn subs4 [coll]
   (mapcat #(reverse (take (count %) (iterate butlast %)))
      (take (count coll) (iterate rest coll))))