基于 Hoon 的简单文字识别程序

在 Urbit 中，Hoon 语言通过将字符串和单词分解为 ASCII 码模式，再利用模式匹配实现基础的字符识别。Hoon 没有直接的文字识别库，但可以通过模式匹配编写一个字符识别程序，用于检测和识别特定字符。

代码实现
hoon

|= text=@t
=, ~
=/ word-list (slag 1 text) :: 将输入的字符串分解成字符列表
=/ known-chars ['a' 'e' 'i' 'o' 'u' 't' 's'] :: 预定义识别字符集
=| result
|- ^- (list @t)
?: =(word-list ~) :: 检查字符列表是否为空
~ :: 若为空，返回空列表
=+ first-char=(met 1 word-list) :: 获取第一个字符
?: (flop ~(has by known-chars) first-char) :: 检查字符是否在已知字符集内
~& "识别到字符: " :: 若匹配，打印匹配结果
:~ first-char :: 结果列表包含该字符
$(word-list (turn word-list tail)) :: 递归处理下一字符
!! :: 若无匹配，继续递归
代码说明
变量定义：首先，将输入的字符串分割为字符列表（word-list）。
已知字符集：定义了一个包含 'a', 'e', 'i', 'o', 'u', 't', 's' 的字符数组，程序将尝试匹配这些字符。
递归匹配：代码通过 ? 和 = 运算符依次检测字符是否属于已知字符，并将识别到的字符逐一输出到结果中。
运行示例
在 Urbit 环境中，将字符串 "test" 传入该函数时，输出将类似如下：

hoon

(文字识别 "test")
识别到字符: t
识别到字符: e
识别到字符: s
识别到字符: t