ファイルからの入力の練習。
の練習問題1。
ファイルの内容を１行ずつのリストにして返す関数 read-lines を書いてください。 hello.txt に適用すると次のようになるようにして下さい。’\n’ は #\Newline です。 改行文字は残すようにしてください。
(read-lines “hello.txt”) ⇒ (“Hello world!\r\n” “Scheme is an elegant programming language.\r\n”)
(define read-lines
(lambda (file-name)
(let ((p (open-input-file file-name)))
(let loop ((lines '()) (line '()) (c (read-char p)))
(cond
((eof-object? c)
(begin
(close-input-port p)
(reverse lines)))
((eq? c #\Newline) (loop (cons (list->string (reverse (cons c line))) lines) '() (read-char p)))
(else (loop lines (cons c line) (read-char p))))))))
(define read-lines
(lambda (file-name)
(let ((p (open-input-file file-name)))
(let loop ((lines '()) (line '()) (c (read-char p)))
(cond
((eof-object? c)
(begin
(close-input-port p)
(reverse lines)))
((eq? c #\Newline) (loop (cons (list->string (reverse (cons c line))) lines) '() (read-char p)))
(else (loop lines (cons c line) (read-char p))))))))
(define read-lines
(lambda (file-name)
(let ((p (open-input-file file-name)))
(let loop ((lines '()) (line '()) (c (read-char p)))
(cond
((eof-object? c)
(begin
(close-input-port p)
(reverse lines)))
((eq? c #\Newline) (loop (cons (list->string (reverse (cons c line))) lines) '() (read-char p)))
(else (loop lines (cons c line) (read-char p))))))))
実行例：
^o^ > gosh -I.
gosh> (load "read-lines.scm")
#t
gosh> (read-lines "sample.txt")
("Hello world!\r\n" "Scheme is an elegant programming language.\r\n")