Valeur maximale d'une liste Prolog

max_list(+List:list(number), -Max:number)
Gorgeous Gorilla