<div class="notebook">

<div class="nb-cell markdown" name="md1">
# 05.05. Prädikate für den Vergleich von Listenlängen

Schreiben Sie ein Prädikat sameLength/2 , das zwei Listen akzeptiert, wenn sie dieselbe Länge haben.

Verwenden Sie für das Prädikat zunächst das Prädikat len2/2.
Versuchen Sie anschließend auf die Verwendung von len2/2 oder andere arithmetische Prädikate zu verzichten.
</div>

<div class="nb-cell program" data-background="true" name="p2">
% Längenbestimmung mit Akkumulator

% len2/2
len2(List,Length):-
  accLen(List,0,Length).

accLen([],Acc,Acc).

accLen([_|T],Acc,L):-
  NewAcc is Acc+1,
  accLen(T,NewAcc,L).
</div>

<div class="nb-cell program" data-background="true" name="p1">
% sameLength/2
% sameLength(L1,L2) gelingt,
% wenn die beiden Listen dieselbe Laenge haben
sameLength(L1,L2):-
    write("+++ Dein Programmcode hier! +++").
</div>

<div class="nb-cell query" name="q1">
write("[1,2,3] und [2,3,4] sind gleich lang: "), sameLength([1,2,3],[2,3,4]).
</div>

<div class="nb-cell query" name="q2">
write("[1,2] und [2,3,4] sind nicht gleich lang: "), sameLength([1,2],[2,3,4]).
</div>

<div class="nb-cell query" name="q3">
write("[1,2,3] und [2,3] sind nicht gleich lang: "), sameLength([1,2,3],[2,3]).
</div>

<div class="nb-cell query" name="q4">
write("[] und [] sind gleich lang: "), sameLength([],[]).
</div>

</div>