SWI-Promog：寻找一种在单独行中打印字典值的方法

Question

我正在寻找一种打印一些 dictionary 以每种方式的值值在终端中的单独线上。

例如，如果我的

X = abc{a:1,b:2,c:3,d:4,e:5,f:6,g:7,h:8,i:9,j:10}.

输出本身是：

?- X = abc{a:1,b:2,c:3,d:4,e:5,f:6,g:7,h:8,i:9,j:10}.
X = abc{a:1, b:2, c:3, d:4, e:5, f:6, g:7, h:8, i:9, j:10}.

为了清楚起见，我现在的目的是获取以下输出：

X = abc{
a:1, 
b:2, 
c:3, 
d:4, 
e:5, 
f:6, 
g:7, 
h:8, 
i:9, 
j:10
}.

很简单？

a:1
b:2 
c:3 
d:4
e:5 
f:6
g:7 
h:8 
i:9 
j:10

或者，它们的方法

Answer 1

可以提供一个自定义 portray> portray/1字典的钩子。例如：

portray(Term) :-
    is_dict(Term),
    dict_pairs(Term, Tag, Pairs),
    writef("%p{\n", [Tag]),
    foreach(member(Key-Value, Pairs), writef("\t%p: %p\n", [Key, Value])),
    write("}").

这也将在嵌套术语上使用（尽管可以正确地将更多的护理添加到缩进的嵌套术语中）。示例输出：

?- X = abc{a:1,b:2,c:3,d:4,e:5,f:6,g:7,h:8,i:9,j:foo{bar:10, baz:11}}.
X = abc{
        a: 1
        b: 2
        c: 3
        d: 4
        e: 5
        f: 6
        g: 7
        h: 8
        i: 9
        j: foo{
        bar: 10
        baz: 11
}
}.

如果钩子尚未启用以获取终端的答案（对我来说）您可能需要调整 wrath_write_options 标志。