05.06. maximales Listenelement bestimmen

Bestimme mit den beiden Prädikaten max1/2(mit Akkumulator) und max2/2(ohne Akkumulator) die maximalen Listenelemente der Listen [1,4,9] und [9,4,1] im Tracemodus. Was fällt dir auf?

% mit Akkumulator:
max1([H|T],Max) :-
    accMax(T,H,Max).

accMax([],Acc,Acc).
accMax([H|T],Acc,Max) :-
    H > Acc,
    accMax(T,H,Max).
accMax([H|T],Acc,Max) :-
    H =< Acc,
    accMax(T,Acc,Max).

% ohne Akkumulator:
max2([],0).
max2([H|T],H):-
  max2(T,MaxT),
  H>MaxT.
max2([H|T],MaxT):-
  max2(T,MaxT),
  H=<MaxT.