AR
Size: a a a
AR
VM
(loop [[_ & rest-xs] [1 2 3 4]
res []]
(let [res (conj res rest-xs)]
(if (seq rest-xs)
(recur rest-xs res)
res)))
T
VM
ST
(->> [1 2 3 4]
(iterate rest)
(drop 1)
(take-while seq))
=> ((2 3 4) (3 4) (4))не знаю, насколько тебе последний
nil
нужен...T
T
ST
ST
T
T
T
T
MB
ST
T
T
MB
(comp
reverse rest (partial reductions conj nil) reverse rest)
MB