listPosition - listPosition.pl


	/* Autore: Claudio Reggiani Alias: Nophiq Data: 05/01/2007 Mail: nophiq@virgilio.it */ % Data una lista ritorna la posizione dell'elemento che si sta cercando al suo interno. % ?- listPosition([a, b, c, d, e], a, P, 1). % 1 una costante da mettere sempre. listPosition([], _, _, _) :- fail. listPosition([X], X, P, _) :- P is 1. listPosition([X\|T], X, P, P1) :- P is P1. listPosition([H\|T], X, P, A) :- P1 is A+1, listPosition(T, X, P, P1).