%participant(Id,Age,Performance)
participant(1234, 17, 'Pé coxinho').
participant(3423, 21, 'Programar com os pés').
participant(3788, 20, 'Sing a Bit').
participant(4865, 22, 'Pontes de esparguete').
participant(8937, 19, 'Pontes de pen-drives').
participant(2564, 20, 'Moodle hack').

%performance(Id,Times)
performance(1234,[120,120,120,120]).
performance(3423,[32,120,45,120]).
performance(3788,[110,2,6,43]).
performance(4865,[120,120,110,120]).
performance(8937,[97,101,105,110]).


% (1)

%analyseTimeList([]):-
%	fail.


%analyseTimeList([L|Ls]):-
%	L = 120;
%	analyseTimeList(Ls).


analyseTimeList2([], Maximum, AuxMaximum):-
	AuxMaximum is Maximum.

analyseTimeList2([L|Ls], Maximum, AuxMaximum):-
	write('1st - Maximum < L'), nl,
	write('1st - '),
	write(Maximum), nl,
	write(L),
	Maximum @< L,
	Maximum is L,
	write('1st -  maximum a afterwards - '),
	write(Maximum), nl,
	analyseTimeList2(Ls, Maximum, AuxMaximum).

analyseTimeList2([L|Ls], Maximum, AuxMaximum):-
	Maximum @>= L,
	analyseTimeList2(Ls, Maximum, AuxMaximum).


%madeItThrough(Participant)
madeItThrough(Participant) :-
	performance(Participant,Lt),	%Use ID of participant to get the Time List
	%analyseTimeList(Lt).			%Analyse Time List to know if a jury didnt hit the button
	analyseTimeList2(Lt, 0, Maximum),
	Maximum = 120.