Пролог - как распечатать список

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), ...)).