reading the 400001st line from a file pasted by DerGuteMoritz on Sat May 19 11:47:57 2012

(call-with-input-file "some-large-file"
  (lambda (file)
    (print (lazy-ref 400000 (input-port->lazy-seq file read-line)))))
[ permalink | raw ]

printing 20 lines after line 40000 of a file added by DerGuteMoritz on Sat May 19 11:52:12 2012

(use lazy-seq clojurian-syntax)

(call-with-input-file "some-large-file"
  (lambda (file)
    (->> (input-port->lazy-seq file read-line)
         (lazy-drop 40000)
         (lazy-take 20)
         (lazy-each print))))
[ permalink | raw ]