ap

Universidade Cruzeiro do SulVictor Hugo Torquete RGM 125200-3Resolução atividade de Aprofundamento Unidade IVSão Paulo2016

Scheme:(define maximo (lambda (ls) (let ( (head (car ls)) (tail (cdr ls))) (if (null? tail) head (let ((maximo-tail (maximo tail))) (if (> head maximo-tail) head maximo-tail ) ) ) ) ))(maximo '(1 5 4 3))PROLOG:maxlist([A],A).maxlist([A|LIST],MAX):- maxlist(LIST,MAX0),(A>=MAX0, MAX=A ; A<MAX0,MAX=MAX0).