Ja das geht einfacher:
Pseudo Code:
Code:
if (listen.count > 0) then
begin
kleinser_wert := listen.items[0].count;
alle_gleich := True;
for i := 1 to listen.count - 1 do
begin
if (listen.items[i].count < kleinster_wert) then
kleinster_wert = listen.items[i].count;
alle_gleich := False;
end;
end;
end
else
Fehler: kein kleinster Wert weil keine liste vorhanden
Also:
Am Anfang ist der kleinste Wert der wert von der 0ten Liste. Danach geht man alle anderen Listen durch und schaut ob in irgend einer Liste weniger drin ist. Sobald man eine solche Liste gefunden hat sind schonmal nicht alle gleich voll und man merkt sich den Wert der Liste wo weniger drin ist.