在序言中打印 array/list 时没有逗号、括号或空格的最佳方法？

Question

所以我才刚刚开始玩 prolog。

假设我有一个这样的数字列表：

X = [0,1,0,1,1,1,1,0]

并希望将这些数字打印到屏幕上，不带逗号、空格或换行符，如下所示：

?- write(X).
01011110

到目前为止，我已经尝试过使用 write(X)。它只是打印数组，我使用 pprint 模块与 print_term 混在一起，但没有取得任何成功。

现在我有一个方法可以创建一个 0 和 1 的网格：

grid(0,[]).
grid(X,Y) :-
    X > 0, 
    X1 is X-1,
    random(0, 2, U),
    Y = [U|T],
    grid(X1,T).

上述方法按预期工作，只是没有得到我想要的打印输出。如果它改变了一些东西，我确实打算最终把它变成一个二维网格。

Answer 1

假设输入中的所有元素确实是数字（或原子），您可以使用内置谓词 atomic_list_concat/2 :

?- X = [0,1,0,1,1,1,1,0], atomic_list_concat(X,Y), write(Y).
01011110

如果它是一个表示为列表列表的矩阵，您可以这样做：

print_matrix([]).
print_matrix([Row|Rows]):-
  atomic_list_concat(Row, TRow),
  writeln(TRow),
  print_matrix(Rows).

样本测试：

?- print_matrix([[1,0,0,1], [0,1,1,0]]).
1001
0110

Best way to print array/list in prolog without commas, brackets, or spacing?