固定文字数の文字列チャンクシーケンス作成関数(Clojure 1.5)

chunked-string-seq.clj

(defn chunked-string-seq
  ([^java.io.Reader rdr]
     (chunked-string-seq rdr :chunk-size 16))
  ([^java.io.Reader rdr &{chunk-size :chunk-size}]
     {:pre [(some-> chunk-size pos?)]}
     (let [buf (char-array chunk-size)]
       (letfn [(f []
                 (when (pos? (.read rdr buf))
                   (cons (String. buf) (lazy-seq (f)))))]
         (f)))))