[plt-scheme] reading a whole file

[Jens Axel Soegaard]

Matthias Felleisen wrote:
> On Nov 4, 2008, at 9:52 AM, Shriram Krishnamurthi wrote:
>> Thanks, Robby.
>>
>> 1. It might be nice if someone w/ Cookbook access posted this version
>> w/ a comment about atomicity.
>
> Could someone explain why the cookbook uses an accumulator and reverse? 
I guess you are referring to this snippet?

(define (readlines filename)
  (call-with-input-file filename
    (lambda (p)
      (let loop ((line (read-line p))
                 (result '()))
        (if (eof-object? line)
            (reverse result)
            (loop (read-line p) (cons line result)))))))

But what would you use instead of an accumulator?

The obvious solution

(define (readlines filename)
  (call-with-input-file filename
    (lambda (p)
      (let loop ()
        (let ((line (read-line p)))
          (if (eof-object? line)
              '()
              (cons line (loop))))))))

breaks on implementations with a small stack.

-- 
Jens Axel Søgaard

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://list.cs.brown.edu/pipermail/plt-scheme/attachments/20081104/d809848d/attachment.html