文件输入 SWI-Prolog

Question

有人可以告诉我从文件中逐行读取多个字符串并在控制台中打印的代码吗？我可以写一些东西到文件中，但是有问题，阅读它。 我试过了

1. see\1，seen\0；
2. read(Stream, X)
3. 在 google 中找到了一些谓词，但没有成功。

Answer 1

你可以这样写：

read_and_just_print(File) :-
    open(File, read, Stream),
    repeat,
    read_line_to_codes(Stream, X),
    ( X \== end_of_file -> atom_codes(X1,X),writeln(X1), fail ; close(Stream), ! ).