Coole Lösung für aeltestesFahrzeug !!
2002-01-05 23:42
Wollemenzel
% aeltestesFahrzeug(FZL,BJ).
aeltestesFahrzeug([],keineEintraege).
aeltestesFahrzeug([[_,BJ]],BJ).
aeltestesFahrzeug([[_,BJ1],[_,BJ2]|Rl],BJ):- BJ1 =< BJ2, aeltestesFahrzeug([[_,BJ1]|Rl],BJ).
aeltestesFahrzeug([[_,BJ1],[_,BJ2]|Rl],BJ):- BJ1 > BJ2, aeltestesFahrzeug([[_,BJ2]|Rl],BJ).
aeltestesFahrzeug([],keineEintraege).
aeltestesFahrzeug([[_,BJ]],BJ).
aeltestesFahrzeug([[_,BJ1],[_,BJ2]|Rl],BJ):- BJ1 =< BJ2, aeltestesFahrzeug([[_,BJ1]|Rl],BJ).
aeltestesFahrzeug([[_,BJ1],[_,BJ2]|Rl],BJ):- BJ1 > BJ2, aeltestesFahrzeug([[_,BJ2]|Rl],BJ).