如何在Scheme中逐个显示字母？

我不熟悉Scheme语言，目前正在使用Simply Scheme教科书。我在试验一些程序，我注意到当我执行这些功能时（如下），它会以“口语”方式打印单词：

（代码使用自）

然后命令：

（显示所有“w'o'w”“t'h'i”“i's”“c'o'o'l）

这些信件一个接一个地打印出来，就好像有人在打字一样。我想知道是否有什么方法可以让我更容易地输入这些要说的单词，而不是一个字母一个字母地输入。我本来打算做这样的事情：

(define (speak . wds)
  (...))

其中，

wds

将是一个字符串。在上面的示例中，我希望它是这样的：

（说“哇，这很酷”）

并返回

“哇，这很酷”

，但每个字母都会逐个显示

---

提前感谢您的帮助

传递一个字符串作为输入怎么样？在这种情况下不需要使用变量参数，请尝试以下方法：

(define (display-all sep vs)
  (for-each display (insert-between sep (string->list vs))))

(display-all "" "wow this is cool")

(define (display-all sep vs)
  (for-each display (insert-between sep (string->list vs))))

(display-all "" "wow this is cool")