在 Scheme 中接受和处理用户输入

Question

我正在使用 DrRacket，版本 6.4，英文在 Scheme 中创建一个小应用程序。

在我的应用程序中，我想对一个简单的再次滚动对话框进行操作。

这是我目前所拥有的。 [仅供参考-当我设置 roll-number = 0 时，我的程序稍后将在代码中退出。]

(begin
    (display "Would you like to roll again?(Y/N)\n")
    (if(not (equal? (read) "Y"))
        (begin
            (set! roll-number 0)
        )
        (display "")
        )
)

现在；无论我如何回答“您想再次滚动吗？（Y/N）”问题，roll-number 变量都设置为 0。

读取返回的具体内容是什么，我将如何将返回值与某个值进行比较，以便我的程序做出正确的决定？

提前致谢。

Answer 1

试试这个：

(equal? (read) 'Y)

Read 返回的是一个符号，而不是一个字符串。