scheme - 通过 eof-object 退出需要什么 x 值？方案

Question

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

如果我想退出程序，我必须写什么才能让程序进入打印乐趣？

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)：