Clojure 루프가 하나의 여분을 읽습니다.

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에서의 최종 결과입니까?