non ho capito se è quello che intendevi... però prova questo:
testoDomanda(N,D,domanda([d(N,D)|T])):-!.
testoDomanda(N,D,domanda([H|T])):- testoDomanda(N,D,domanda(T)).
ask(A):-
testoDomanda(1,A,domanda([d(1,'a a'), d(2,b), d(3,c)])).
__________________
Ho concluso felicemente trattative con: Pro-BO, ironz
|