;;; Questao 1

(defun max-jejum (lista)
  (if (<= (length lista) 1)
      nil
    (apply #'max
	   (mapcar #'-
		   (mapcar #'car (cdr lista))
		   (mapcar #'car lista)
		   )
	   )
    )
  )

;;; Questao 2

(defun pontos (lista clube)
  (apply #'+
	 (mapcar (lambda(jogo)(pontos-jogo clube jogo))
		 lista
		 )
	 )
  )

(defun pontos-jogo (clube jogo)
  (cond
   ((eql clube (first jogo)) (pontos-placar (second jogo) (fourth jogo)))
   ((eql clube (third jogo)) (pontos-placar (fourth jogo) (second jogo)))
   (t 0)
   )
  )

(defun pontos-placar (pro contra)
  (cond
   ((> pro contra) 3)
   ((< pro contra) 0)
   (t 1)
   )
  )