Question

我试图将字符串转换为ascii代码列表，如下所示：

7 ?- string_to_list("I'm a big blue banana in space!", C).
C = [73, 39, 109, 32, 97, 32, 98, 105, 103|...].

8 ?-

如你所见，这并没有给我整个清单，但我需要它。

This solution does not work：我不能按w，因为它给了我答案并完全停止。 Neither does this：我可以调用该函数，它返回true，但列表仍然没有完全显示。

11 ?- set_prolog_flag(toplevel_print_options,[quoted(true), portray(true), max_depth(0), spacing(next_argument)]).
true.

12 ?- string_to_list("I'm a big blue banana in space!", C).
C = [73, 39, 109, 32, 97, 32, 98, 105, 103|...].

13 ?-

任何帮助表示赞赏！

Answer 1

?- set_prolog_flag(answer_write_options,[max_depth(0)]).
true.

?- string_to_list("I'm a big blue banana in space!", C).
C = [73,39,109,32,97,32,98,105,103,32,98,108,117,101,32,98,97,110,97,110,97,32,105,110,32,115,112,97,99,101,33].

这里应该有一个相同的答案......我正在使用最后一个SWI-prolog版本，只是编译...

Answer 2

如果您发现自己经常使用string_codes/2或atom_codes/2，请重新考虑您的方法。您可以使用chars代替codes，并完全避免使用特定于SWI的字符串数据类型。所有这些，通过设置Prolog标志：

?- set_prolog_flag(double_quotes, chars).
true.

?- Chs = "Codes are unreadable!".
Chs = ['C', o, d, e, s, ' ', a, r, e|...].

这比[67, 111, 100, 101, 115, 32, 97, 114, 101|...]更具可读性，但它仍然无法解决您的问题。但是，您现在可以使用library(double_quotes)紧凑地显示此类答案。

?- use_module(double_quotes).
true.

?- Chs = "Codes are unreadable!".
Chs = "Codes are unreadable!".

?- Chs = "Codes are unreadable", Chs = [C|Chs2].
Chs = "Codes are unreadable",
C = 'C',
Chs2 = "odes are unreadable".

使用此设置，您可以更方便地处理文本。它也非常适合DCG。

Answer 3

只需将comment by @mat放在答案中：

?- string_codes("string_to_list/2 is deprecated; use string_codes/2!", Codes)
   ;
   false.
Codes = [115, 116, 114, 105, 110, 103, 95, 116, 111|...] /* press w */ [write]
Codes = [115, 116, 114, 105, 110, 103, 95, 116, 111, 95, 108, 105, 115, 116, 47, 50, 32, 105, 115, 32, 100, 101, 112, 114, 101, 99, 97, 116, 101, 100, 59, 32, 117, 115, 101, 32, 115, 116, 114, 105, 110, 103, 95, 99, 111, 100, 101, 115, 47, 50, 33] /* press enter */.

但是，从所有条款将在此处完整显示。这可能会很烦人。

您还可以使用其中一个打印谓词：

?- ..., writeln(Codes).

但出于某种原因，这是不赞成的。如果您在答案中报告了多个绑定，那么它绝对有用，但您只想查看其中一个变量的完整值：

?- numlist(1,1000,L),
   Codes = `This is a code list in SWI-Prolog V7`.
L = [1, 2, 3, 4, 5, 6, 7, 8, 9|...],
Codes = [84, 104, 105, 115, 32, 105, 115, 32, 97|...].

?- numlist(1,1000,L),
   Codes = `This is a code list in SWI-Prolog V7`,
   writeln(Codes).
[84,104,105,115,32,105,115,32,97,32,99,111,100,101,32,108,105,115,116,32,105,110,32,83,87,73,45,80,114,111,108,111,103,32,86,55]
L = [1, 2, 3, 4, 5, 6, 7, 8, 9|...],
Codes = [84, 104, 105, 115, 32, 105, 115, 32, 97|...].

Answer 4

我找到了两种方法。

1

?- set_prolog_flag(answer_write_options,[max_depth(0)]).
true.

然后执行打印截断列表的命令。

（set_prolog_flag documentation）

2

?- atom_chars(goodbye_prolog, X) ; true.

（AllOutput documentation）

将; true.放在导致长列表的通话结束时。然后按键盘上的 w 键。结果是：

?- sudoku([_,_,2,3,_,_,_,_,_,_,_,_,3,4,_,_], Solution); true.
Solution = [4, 1, 2, 3, 2, 3, 4, 1, 1|...] [write]
Solution = [4, 1, 2, 3, 2, 3, 4, 1, 1, 2, 3, 4, 3, 4, 1, 2] ;
true.

Answer 5

你可以用这个来解决你的问题，

.replaceWith()

但是，如果您打算始终显示所有结果而不是列入候选名单，则可以在“init”中添加此行。

导航： SWI-Prolog＆gt;设置＆gt;用户初始化文件

如果您从未创建swipl.ini文件，系统会要求您创建该文件。

在一天结束时，您将来再次启动prolog时无需键入上面的代码行。

SWI-Prolog如何显示整个答案（列表）？

5 个答案: