7. Пусть дано n прямоугольников, заданных координатами левой верхней и правой нижней вершины. Стороны прямоугольников параллельны осям координат. Опр

;; Пересечение двух отрезков
 
(defun intSeg (a1 b1 a2 b2)
  (cond ((or (<= b1 a2) (<= b2 a1)) nil)
        ((and (<= a1 a2) (>= b1 b2)) (list a2 b2))
        ((and (<= a2 a1) (>= b2 b1)) (list a1 b1))
        ((and (>= a2 a1) (>= b2 b1)) (list a2 b1))
        (t (list a1 b2))))
 
==> intSeg
 
;; Итерационное решение
 
(defun max-area (lstRec)
  (let ((amax -1) (n (length lstRec)))
    (iter (for i from 0 to (- n 2))
      (iter (for j from (1+ i) to (1- n))
           (let* ((rect-i (nth i lstRec))
                  (rect-j (nth j lstRec))
                  (xij (intseg (nth 0 rect-i) (nth 2 rect-i) (nth 0 rect-j) (nth 2 rect-j)))
                  (yij (intseg (nth 3 rect-i) (nth 1 rect-i) (nth 3 rect-j) (nth 1 rect-j))))
                 (when (and xij yij) (maximizing (* (- (nth 1 xij) (nth 0 xij))
                                                    (- (nth 1 yij) (nth 0 yij))) into amax) ))))
   amax))
 
==> max-area
 
(max-area '((1 5 3 -1) (2 10 4 4.5) (0 3 10 0)))
 
==> 6.0