Re: Reading data into list from "include" file

B. Pym wrote:

Raymond Wiker wrote:
 

For people who don't like extended loop, I think this a better
implementation:
 
(defun read-numbers-from-file/2 (file-path n)
  (with-open-file (f file-path :direction :input)
    (let ((res nil))
      (dotimes (i n)
        (push (parse-integer (read-line f nil)) res))
      (nreverse res))))

 
Gauche Scheme
 
(with-input-from-file "output.dat"
  (lambda res
    (until (read) eof-object? => x
      (push! res x))
    (reverse res)))
 
  ===>
(4 3 2 1 3 4 2 1 4 2 3 1 2 4 3 1 3 2 4 1 2 3 4 1 4 3 1 2
 3 4 1 2 4 1 3 2 1 4 3 2 3 1 4 2 1 3 4 2 4 2 1 3 2 4 1 3
 4 1 2 3 1 4 2 3 2 1 4 3 1 2 4 3 3 2 1 4 2 3 1 4 3 1 2 4
 1 3 2 4 2 1 3 4 1 2 3 4)
 

(define (collect-till pred gen key)
  (do ((x (gen) (gen))
       (res '() (cons x res)))
    ((pred x)  (reverse res))))

(with-input-from-file "output.dat"
  (lambda _
    (collect-till eof-object? read +)))