如何消除SWI-Prolog程序执行后末尾自动添加的换行符？

我之前也碰到过SWI-Prolog这个默认换行的小坑，给你几个实用的解决办法：

1. 用format/2精确控制输出内容 #

SWI-Prolog的write/1本身不会主动加换行，但如果程序依赖顶层输出或某些隐式逻辑，可能会附带换行。换成format/2可以完全掌控输出格式：

% 假设输出内容存在Result变量中，直接输出无换行
format('~s', [Result]).

~s格式说明符会直接输出字符串内容，不会额外添加任何换行符。如果需要输出多段内容，也可以把它们拼接成一个格式串一次性输出：

format('~s~s', [Part1, Part2]).

2. 避免触发顶层自动换行行为 #

如果程序是编译成可执行文件运行，SWI-Prolog的顶层环境可能会在程序结束时自动输出换行。解决办法是在程序逻辑最后主动调用halt/0终止程序，跳过顶层的默认输出：

% 你的业务逻辑代码...
halt. % 直接终止程序，避免顶层添加换行

3. 直接操作输出流（进阶用法） #

如果需要更精细地控制输出，可以直接获取当前输出流，手动写入内容并刷新，完全绕过默认的换行逻辑：

current_output(Stream),       % 获取当前输出流
write(Stream, YourContent),   % 写入内容，无额外换行
flush_output(Stream).         % 确保内容立即输出

你可以根据自己的代码结构选择最适合的方法，修改后再用./filename < in.txt > out.txt测试，应该就能消除输出末尾的多余换行符了。

内容的提问来源于stack exchange，提问作者Štěpán vrša