如何在Prolog中不使用内置谓词string_to_list实现字符串转ASCII码列表？

没问题！要实现不依赖string_to_list内置谓词的功能，我们可以利用Prolog的原子操作和字符编码相关谓词，自己递归实现转换逻辑。下面给你两种可行的实现方案：

方案1：基于字符列表的递归转换 #

这个方案先把原子拆解为字符列表（用atom_chars/2，它和string_to_list是不同的内置谓词，专门处理原子到字符列表的转换，符合你的要求），再逐个把字符转成ASCII码：

% 主入口：读取输入原子并输出对应的ASCII码列表
read_atom_to_ascii :-
    write('请输入一个原子：'),
    read(Atom),
    atom_to_ascii_list(Atom, AsciiList),
    write('对应的ASCII码列表：'),
    writeln(AsciiList).

% 核心转换：原子 -> ASCII码列表
atom_to_ascii_list(Atom, AsciiList) :-
    atom_chars(Atom, CharList),  % 将原子拆分为单个字符的列表
    chars_to_ascii(CharList, AsciiList).

% 递归遍历字符列表，转换为ASCII码
chars_to_ascii([], []).  % 空列表的基础终止条件
chars_to_ascii([Char|RestChars], [Code|RestCodes]) :-
    char_code(Char, Code),  % 获取单个字符的ASCII码
    chars_to_ascii(RestChars, RestCodes).

代码说明 #

• read_atom_to_ascii/0：负责和用户交互，读取输入、调用转换逻辑并输出结果。
• atom_to_ascii_list/2：作为中间层，先把原子转成字符列表，再交给递归处理。
• chars_to_ascii/2：通过递归遍历，把每个字符映射为对应的ASCII码，最终拼接成目标列表。

方案2：更底层的原子拆分实现 #

如果想完全避开atom_chars/2，可以用atom_concat/3直接拆分原子，每次取出第一个字符的原子再转换：

% 主入口和方案1一致，这里只替换核心转换谓词
read_atom_to_ascii_v2 :-
    write('请输入一个原子：'),
    read(Atom),
    atom_to_ascii_list_v2(Atom, AsciiList),
    write('对应的ASCII码列表：'),
    writeln(AsciiList).

% 不依赖atom_chars的核心转换
atom_to_ascii_list_v2('', []).  % 空原子对应空列表
atom_to_ascii_list_v2(Atom, [Code|RestCodes]) :-
    atom_concat(FirstCharAtom, RestAtom, Atom),
    atom_length(FirstCharAtom, 1),  % 确保拆分出的是单个字符的原子
    char_code(FirstCharAtom, Code),  % 单个字符的原子也可以直接用char_code获取ASCII码
    atom_to_ascii_list_v2(RestAtom, RestCodes).

代码说明 #

这个版本通过atom_concat/3将原子拆分为「第一个字符的原子」和「剩余部分的原子」，用atom_length/2确保拆分的是单个字符，再递归处理剩余部分，完全不需要依赖字符列表相关的谓词。

测试示例 #

比如你输入原子hello，两个方案都会输出：[104,101,108,108,111]，和string_to_list的效果完全一致。

内容的提问来源于stack exchange，提问作者Qwerto