先贴代码
(def x (list (list 1 2) (list 3 4)))
(defn rever [a]
(defn item[l r]
(if (= nil (first l)) r
(item (rest l) (cons (first l) r))
)
)
(item a nil)
)
(defn deep-rever [a]
(defn item[l r]
(if (= nil (first l)) r
(item (rest l) (cons (if (seq? (first l)) (deep-rever (first l)) (first l)) r))
)
)
(item a nil)
)
执行结果
增加了deep-rever的递归,并且要将递归的结果组织成list再次呈现出来。