Hank, Your last version does not work because your `if` condition is wrong, your code stops on the first read ;)
Laurent Le lundi 27 décembre 2021 à 21:34:05 UTC+1, hank....@gmail.com a écrit : > Ooops my bad, there's a typo in '(.toString sb1)' which sould be 'sb'. > It doesn't change anything, it still won't work, only Laurent's version > works. > > user> (defn pt%% [file] > > (let [afr (FileReader. file) > bfr (BufferedReader. afr)] > (loop [x (.read bfr) > sb (StringBuilder.)] > (if (not (= x -1)) > (.toString sb) > (recur (.append sb (char x)) (.read bfr)))))) > > #'user/pt%% > user> (pt%% ribs) > "" > > Which makes no sense to me... > -- Hank > > -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en --- You received this message because you are subscribed to the Google Groups "Clojure" group. To unsubscribe from this group and stop receiving emails from it, send an email to clojure+unsubscr...@googlegroups.com. To view this discussion on the web visit https://groups.google.com/d/msgid/clojure/9252a765-a5ff-46d9-8c49-b9affb9d2651n%40googlegroups.com.
