% KSP 19-1-6 1.Příliš těžké slepice

% prostredni(Sezn, Prost) 	Prost je prostřední prvek Sezn

% Vyšleme seznamem dva signály, jeden dvakrát rychlejší nez druhý.
% Až dojede rychlejší signál na konec, pomalejší ukazuje na
% prostředek seznamu.

prostredni([A], [C|T2], C).			% seznam liché délky
						% rychlý signál A dojel na konec,
                                                % pomalý C je prostředek

prostredni([A,B], [C,D|T2], D).		        % seznam sudé délky
						% rychlý signál A dojel na konec,
						% pomalý D je prostředek
						% (dle zadání je vic vpravo)

% z prvního seznamu reprezentující rychlý seznam utrhneme dva prvky
% (posuneme se o dva prvky), z druhého seznamu utrhneme jeden prvek
% (posuneme se o jeden prvek), zavoláme se rekurzivně na zbytky
% seznamů T1 a T2 a necháme si z rekurze vrátit výsledek Prost
prostredni([A,B|T1],[C|T2],Prost) :- prostredni(T1,T2,Prost).