XPost: comp.lang.scheme
Pascal Costanza wrote:
In Scheme I would probably do something like (list->vector (reverse
dict)) but is there a way to build the vector directly without knowing
the size in advance? Or is there a more "CL" way to do this?
What about this:
(with-open-file (str filename :direction :input)
(loop for line = (read-line str nil 'eof)
until (eql line 'eof)
collect line into dict
finally (return (apply #'vector dict))))
or:
(with-open-file (str filename :direction :input)
(loop for line = (read-line str nil 'eof)
until (eql line 'eof)
count t into line-count
collect line into dict
finally (return
(make-array line-count :initial-contents dict))))
Gauche Scheme
(use gauche.generator)
(generator->vector (file->generator "output.dat" read-line))
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)