Racket - stdinから新しい行までを読み取る

Question

stdin要素から要素を読み込みたいが、新しい行を挿入するときにどのように停止するかわからない。

(define readNext 
    (lambda (tmp) 
    (let ([a (read)]) 
    (if (equal? a ??????) 
     tmp 
     (readNext (cons (read) tmp)))))) 

Answer 1

は私が期待どおりに動作解決策を見つけた： はここに私のコードです。

(define a (open-input-string (read-line))) 
(define readNext 
    (lambda (tmp) 
    (let ([b (read a)]) 
    (if (equal? b eof) 
     tmp 
     (readNext (append tmp (list b))))))) 

(readNext '()) 

編集：それはnewlineに停止しませんが、eof

Answer 2

機能readのための全体データムを読み込みます。 改行するまで文字を読みたい場合は、 を一度に1文字ずつ使用する必要があります。

改行文字は#\newlineと書かれています。このような

何か：

#lang racket 
(define read-a-line-as-list 
    (lambda() 
    (let ([c (read-char)]) 
    (if (equal? C#\newline) 
     '() 
     (cons c (read-a-line-as-list)))))) 

(define read-a-line 
    (lambda() 
    (list->string (read-a-line-as-list)))) 

(read-a-line) 

Answer 3

私が最も慣用的であってもよいが、それが動作しない場合があります。この

(for ((_ (in-naturals))) 
    (define l (read-line)) 
    #:break (eof-object? l) 
    (displayln l)) 

ようにそれをやっています。 for/listなどを使用して、読み込み中の行にもっと便利な処理をしてください。