All pastes #419530 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-04-01 12:23 UTC
rendered paste body
levag(0,L,L).
levag(N,[_|L1],L2):- 			M is N-1,
					levag(M,L1,L2).

createlist(M,OL,NL):-			length(OL,N),
					O is N-M,
					levag(O,OL,NL).

compare([],_).
compare([A],[A|_]).
compare([A|L1],[B|L2]):- 		A=B,
					compare(L1,L2).

katfedo(0,[],[]).
katfedo(K,X,Y):- 			createlist(K,X,X2),
					compare(X2,Y).