% Dana jest lista miesięcy: % [sty,lut,mar,kwi,maj,cze,lip,sie,wrz,paz,lis,gru]. % Predykat miesiace2 zwraca w zmiennej M1: nazwę miesięca przed wskazamym w zmiennej % X miesiącu i M2 miesięc po wskazanym zmienną X miesiącu. miesiac2( X, M1, M2) :- append( _, [M1,X,M2 | _], [sty,lut,mar,kwi,maj,cze,lip,sie,wrz,paz,lis,gru]). % przykładowe zapytania: % miesiac2( sty, X, Y). % miesiac2( kwi, X, Y). % miesiac2( kwi, mar, Y).