Scheme peek-char-in方案

只需要知道偷窥计划的基本知识。我试着在球拍网站上寻找帮助，但没有太多。也许我找错了地方。无论如何，这一点如下

如果我有

（#\x\b\o\x\space\3\6\0）

我希望能够将x识别为一个字符，然后继续窥视，直到找到空间并将其重新定义为一个单词。然后对360进行同样的操作

有什么建议吗？请，谢谢你！：）

下面是我的代码的样子，以防有帮助

(define (work x) 
(cond
((null? x)(write '$$))
(char-numeric? (car x))
(write 'Num)
(toke (cdr x)))
((char-alphabetic? (car x))
(write 'ID)
(work (cdr x)))
(else (write "other")))

问题是它会给我“xbox”的ID（这是代码的原因），但我想让它只输出一次整个xbox的ID

---

奥斯卡，我知道你帮了我的忙，但我对这个计划缺乏了解，所以我没能走远。很抱歉再次发布

参见手册中关于peek char的部分：

示例（其中我使用字符串作为输入端口，以便 无需额外数据文件即可工作的示例）：

---

请参阅手册中关于peek char的部分：

示例（其中我使用字符串作为输入端口，以便 无需额外数据文件即可工作的示例）：

---

谢谢我只需要知道这些。我可以从这里拿走：）谢谢！我只需要知道这些。我可以从这里开始：）

> (define a-string "Foo bar")
> (define in (open-input-string a-string))
> (peek-char in)
#\F
> (peek-char in)
#\F
> (read-char in)
#\F
> (peek-char in)
#\o
> (peek-char in)
#\o
> (read-char in)
#\o
> (read-char in)
#\o
> (peek-char in)
#\space