I'm really fresh to clojure way of doing things and your answers will definitely help. Thank you!
Cheers, Daniel On 13 Sie, 06:46, Sean Corfield <seancorfi...@gmail.com> wrote: > Yeah, I got the impression the OP was trying to create a new file with > double the contents of the old one - the (str file-path 2) piece - but yours > is certainly a slick way to double the original file! > > > > > > > > > > On Fri, Aug 12, 2011 at 8:47 PM, Dave Ray <dave...@gmail.com> wrote: > > Even shorter: > > > (defn duplicate-file-data [file-path] (spit file-path (slurp > > file-path) :append true)) > > > Dave > > > On Fri, Aug 12, 2011 at 11:16 PM, Sean Corfield <seancorfi...@gmail.com> > > wrote: > > > I think you also want to reorganize the code so you get the line-seq and > > > then the line-count outside the for loop. And bear in mind that (inc > > > line-count) just returns line-count + 1 - it does not update line-count > > > which is what I'm guessing you're expecting? > > > Or you could just use slurp and spit: > > > (defn duplicate-file-data [file-path] (let [content (slurp file-path)] > > (spit > > > (str file-path 2) (str content content)))) > > > > On Fri, Aug 12, 2011 at 8:05 PM, Sean Corfield <seancorfi...@gmail.com> > > > wrote: > > > >> (for ...) generates a lazy sequence so it isn't realized until after the > > >> value is returned from the function. You need to wrap (for ...) with > > (doall > > >> ...) to realize the sequence inside (with-open ...) > > > >> On Fri, Aug 12, 2011 at 4:47 PM, turcio <tur...@gmail.com> wrote: > > > >>> Hi, > > >>> I'm trying to write a function which creates file twice as big > > >>> compared to the original file by simply duplicating its content. > > > >>> It looks like in the for loop I can't even read the first line > > >>> although I'm using with-open. Can you tell me what am I doing wrong? > > > >>> (defn duplicate-file-data [file-path] > > >>> (with-open [reader (clojure.java.io/reader file-path) > > >>> writer (clojure.java.io/writer (str file-path 2) :append > > >>> true)] > > >>> (for [line (line-seq reader) > > >>> :let [line-count (count(line-seq > > >>> reader)) > > >>> curr-line 0] > > >>> :when (< curr-line line-count)] > > >>> ((.write writer (str line)) > > >>> (.newLine writer) > > >>> (inc curr-line)) > > >>> ))) > -- 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
