Prolog -如何打印列表

Question

我需要打印清单但我有麻烦了..。我有这样的事实：

processor('Intel Core i3 8100', 104, 'low_range')   .
processor('Ryzen 5 2400g', 135, 'middle_range').    
motherboard('Gigabyte Z370P D3', 98, 'low_range')   .
motherboard('Gigabyte GBT AX370M-DS3H', 70, 'middle_range').
.....
configuration(P, M, R, C, A, V, S, D, H, Price_range) :-
    processor(P, _Proc_price, Price_range),
    motherboard(M, _Motherboard_price, Price_range),
    ram(R, _Ram_price, Price_range),
    case(C, _Case_price, Price_range),
    ali(A, _Ali_price, Price_range),
    video_card(V, _Vga_price, Price_range),
    ssd(S, _Ssd_price, Price_range),
    monitor(D, _Monitor_price, Price_range),
    hdd(H, _Hdd_price, Price_range).

我通过findall函数过滤这些配置：

findall(P-M-R-C-A-V-S-D-H, configuration(P, M, R, C, A, V, S, D, H, T), Res),

我需要以这种方式打印Res元素：

configuration number 1
processor
motherboard
ram
case
ali
video card
ssd
monitor
hdd

configuration number 2
processor
motherboard
ram
case
ali
video card
ssd
monitor
hdd

....

configuration number N
processor
motherboard
ram
case
ali
video card
ssd
monitor
hdd

你能帮帮我吗？我不知道该怎么做

Answer 1

您可能希望使用forall/2而不是findall/3

forall(:Cond, :Action)对于Cond的所有可选绑定，动作都可以被证明。

例如：

forall(configuration(P, M, R, C, A, V, S, D, H, T),
    (writeln(configuration), writeln(P), writeln(M), ...)).

编辑:您可以这样做一个计数器：

:- dynamic(mycounter/1).
:- assertz(mycounter(0)).

incr_mycounter(X):-
    mycounter(X),
    retractall(mycounter(_)),
    succ(X,Y),
    assertz(mycounter(Y)).

像这样使用它：

forall(configuration(P, M, R, C, A, V, S, D, H, T),
    (incr_mycounter(N), writeln(configuration-N), writeln(P), writeln(M), ...)).