(defn char-seq [rdr] (let [coll (line-seq rdr)] (apply concat (map (fn [x] (println \,) x) coll)))) (def tmp (char-seq (clojure.contrib.io/reader file))) ;, ...
確定！ 回上一頁
