利用Clojure统计代码文件数量和代码行数

;; 引入clojure的io包
(use '[clojure.java.io])

;; 遍历目录将所有符合要求的文件做为列表返回
(defn walk [dirpath pattern]
  (doall (filter #(re-matches pattern (.getName %))
                 (file-seq (file dirpath)))))
 
;; 将检索出的php文件列表保存到filted-files
(def filted-files (walk "z:/wwwroot" #".*\.php"))

;; 统计文件数量
(count filted-files)

;; 统计代码行数
(apply + (map #(count %) 
              (map #(line-seq (reader (.getPath %))) 
                   filted-files)))