% IZU 2016 - lab PROLOG_2
% Michal Schorm - xschor02

% fce_1: výpočet faktoriálu
faktorial(0, 1) :- !.
faktorial(N, F) :-  X is N-1, faktorial(X, Y), F is N*Y.

% fce_2: vybírání maximální hodnoty ze seznamu
max_list([X], X) :- !.
max_list([H|T], H) :- max_list(T, X), H>=X, !.
max_list([H|T], X) :- max_list(T, X), H<X.