Valor máximo de uma lista Prolog
max_list(+List:list(number), -Max:number)
Gorgeous Gorilla
max_list(+List:list(number), -Max:number)