Snobol4 语言 实战 电话号码分机格式统一实战

Snobol4^【1】 语言实战：电话号码分机格式^【2】统一实战

Snobol4 是一种古老的编程语言，最初由 Stephen C. Johnson 在1962年设计，主要用于文本处理^【3】。尽管它在现代编程语言中并不常见，但它的独特特性和简洁性使其在某些特定领域仍有其应用价值。本文将围绕电话号码分机格式统一这一主题，使用 Snobol4 语言编写一个程序，实现电话号码格式的标准化^【4】。

Snobol4 简介

Snobol4 是 Snobol 系列语言的第四个版本，它具有以下特点：

- 文本处理能力：Snobol4 非常适合处理文本数据，包括字符串操作^【5】和模式匹配^【6】。
- 简洁语法：Snobol4 的语法相对简单，易于学习和使用。
- 动态数据结构^【7】：Snobol4 支持动态数据结构，如列表和表。

实战目标

我们的目标是编写一个 Snobol4 程序，该程序能够接收一个电话号码字符串，并将其转换为统一的分机格式。例如，将以下格式的电话号码转换为统一的格式：

- 123-456-7890 -> 123.456.7890
- (123) 456-7890 -> 123.456.7890
- 123.456.7890 -> 123.456.7890
- 1234567890 -> 123.456.7890

程序设计

为了实现上述目标，我们需要设计一个 Snobol4 程序，该程序能够：

1. 识别并去除电话号码中的非数字字符。
2. 将数字按照三位一组进行分割。
3. 将分割后的数字用点号连接起来。

以下是实现这一目标的 Snobol4 程序代码：

```snobol
:input
' ' :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+! :+