scheme - eof-objectを介して終了するには、xのどの値が必要ですか？図式

Question

(define (number-checker)
     (define userinput (read))
     (cond
        [(eof-object? userinput) print-fun)]
        [else
          (set!  tries (+ 1 userinput))
          (number-checker)]))

プログラムを終了したい場合、プログラムをprint-funに移行するには、何を書く必要がありますか？

Answer 1

あなたの質問は実際にはあまり明確ではありませんが、満足できる値を取得する方法を尋ねたいだけの場合はeof-object?、を使用できますeof。

Answer 2

（Racketを使用して）コンパイルしていません：

タイプミスを修正した後も：

私が正しく理解していれば、「ファイルの終わり」の文字が到着したときに、プロンプトからのユーザー入力を読み取り、ベイルアウトすることになっています。しかし、このコードは間違いなく機能しません。何print-funですか？等

更新：
動作するコードは次のとおりです。

#lang racket
(define (number-checker)
     (define userinput (read))
     (define tries 'a)
     (cond
        [(eof-object? userinput) 'print-fun]
        [else
          (set!  tries (+ 1 userinput))
          (number-checker)]))

それはこのように動作します：

更新2： 実行後に表示されるeofボタンを示す別のスクリーンショット(number-checker)：