file - 如何删除所有空格并在 prolog 文件中发送？

Question

我想读取一个文件并删除所有空格并发送（nl）这些并将所有内容放在一个列表中。

例如：从

myfile.txt = (First Line (Second ( line ) and Third and other)
To List = [FirstLine(Second(line)andthirdandother)]

如何实现？

谢谢

Answer 1

如果你的 Prolog 有适当的内置函数，比如read_file_to_codes /3 和code_type /2，你可以这样做

file_to_list(File, List) :-
  read_file_to_codes(File, Codes, []),
  exclude(bad_char, Codes, List).

bad_char(C) :-
  code_type(C, space).