Clojureループは1つを余分に読み込みます

Question

長さが4の場合、ループは5回実行されます。ストリームから5文字を読み込みます。

(loop [i (.read stream) result "" counter length] 
    (let [c (char i)] 
     (println "=>" c) 
     (if (zero? counter) 
     result 
     (recur (.read stream) (str result c) (dec counter))))) 

Answer 1

readを実行する前に、zero?をテストする必要があります。あなたのバージョンはlength == 0で始まる場合でも、readを一度呼び出します。

(loop [result "" counter length] 
    (if (zero? counter) 
    result 
    (let [c (char (.read stream))] 
     (println "=>" c) 
     (recur (str result c) (dec counter))))) 

明示loopを避けるもう一つの方法：

(apply str 
     (take length 
      (repeatedly #(let [c (char (.read stream))] 
          (println "=>" c) c))))) 

Answer 2

私はClojureのを知っていませんが、「結果」の形で再び流れを読んでいるように、それは私には見えますが、これはCLで決勝のようなものですか？