练习2.27

先贴代码

(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再次呈现出来。