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
-~----------~----~----~----~------~----~------~--~---
