%oblicza krok ciągu
%krok(Ciąg,Krok).
krok([X,Y|_],K):-K is abs(Y-X).

%znajduje minimalny wyraz ciągu.
%min(Ciąg,MinElement).
min([X],X).
min([H|T],H):-min(T,W), H=<W,!.
min([_|T],W):-min(T,W).

%zwraca najmniejszy element w liscie ciągów
%mininlist(ListaCiągów,NajmniejszyElement).
mininlist([X],Y):-min(X,Y),!.
mininlist([X|T],W1):-
	mininlist(T,W),min(X,W1),W1=<W.
mininlist([_|T],W):-
	mininlist(T,W).

%znajduje maksymalny wyraz ciagu.
%maks(Ciąg,MaxElement).
max([X],X).
max([H|T],H):-max(T,W), H>W,!.
max([_|T],W):-max(T,W).

%znajduje największy element w liście ciągów.
%maxinlist(ListaCiągówOtymsamymKroku,Max).
maxinlist([X],Y):-max(X,Y),!.

maxinlist([X|T],W):-
	maxinlist(T,W1),max(X,W),W>W1.
maxinlist([_|T],W):-
	maxinlist(T,W).

%wypelnia luki między najmniejszym, a najwiekszym elementem
%luki(Min,Step,Maks,Ciąg).
luki(Min,Step,Maks,[Min|L]):-
	Min1 is Min+Step,
	Maks>Min,
	luki(Min1,Step,Maks,L).
luki(Min,_,Min,[Min]).

%łączy w jedną listę ciągi o tym samym kroku
%lacz(ListaCiągów,,Krok,ListaCiągówoTymSamymKroku).
lacz([],_,[]).
lacz([X|T],Step,[X|L]):-
	krok(X,Step),
	lacz(T,Step,L).
lacz([_|T],X,L):-
	lacz(T,X,L).