(defn rever [a](defn item[l r](if (= nil (first l)) r(item (rest l) (cons (first l) r))))(item a nil))

这段代码非常有助于理解什么是深度优先，什么是广度优先。

很久没有写习题的代码了，倒不是懒得做习题了，是私事多，状态差，做了很多题，也不想发出来

今天回复的还好，发一个。

(⊙o⊙)… 发完才发现已经发过了，把2.21也加进来吧 标题改成2.21，2.19和2.20没有存稿，我状态恢复一下再折腾。

(defn square [x](* x x)); map 版
(defn square-list [item] (map square item));非map版
(defn square-list [item](if (empty? item)nil(cons(square (first item))(square-list (rest item)))))

 

 

 这里容易出错的地方之一是，输出的内容是反序的。需要注意如何cons进序列对。