Just an FYI, you can also use the builtin slurp function, which will return the contents of a given file.
(slurp "file.txt") Regards, Travis On Aug 21, 4:11 am, DemAS <andrey.demi...@gmail.com> wrote: > Hi all, > > I have created the function that read a txt file. I have a very > little experience in clojure and I will be thankfull for any > correction and ideas. > > This is source code: > > (defn create-freader [filename] > (def f-reader (new java.io.FileReader filename)) > f-reader) > > (defn create-breader [f-reader] > (def b-reader (new java.io.BufferedReader f-reader)) > b-reader) > > (defn close-freader [f-reader] > (. f-reader close)) > > (defn eof [line] > (if (= line nil) > true > false)) > > (defn read-lines [reader] > (loop [result []] > (def next-line (. reader readLine)) > (if (eof next-line) > result > (recur (conj result next-line))))) > > (defn read-file [filename] > (def f-reader (create-freader filename)) > (def b-reader (create-breader f-reader)) > (def lines (read-lines b-reader)) > (close-freader f-reader) > lines) > > user ==> (read-file "my_file") > > This is source code in pastebin (http://pastebin.com/m477bd86d). > > Thanks in advance. > Andrey. --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
