在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 "")
        )
)

现在; roll-number变量设置为0无论我如何回答＆＃34;你想再次滚动吗？（是/否）＆＃34;问题

读取返回的确切内容以及如何将返回值与某些内容进行比较，以便我的程序能够做出正确的决定？

提前致谢。

Answer 1

试试这个：

(equal? (read) 'Y)

Read正在返回符号，而不是字符串。