Найти в каждой строке матрице максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно. F(N,M)

(defun F (l)
    (cond
        ((null l) nil)
        (t (let* ((mn (apply 'min (car l)))
                  (mx (apply 'max (car l)))
                  (l1 (cons mx (cdar l))))
            (cons (append (butlast l1) (list mn)) (F (cdr l)))))))
 
(f '((1 2 3 4 5) (5 4 3 2 1) (5 -2 6 3 5)))
 
==> ((5 2 3 4 1) (5 4 3 2 1) (6 -2 6 3 -2))

(defun fn (a)
  (declare (type (array fixnum (* *)) a))
  (destructuring-bind (n m) (array-dimensions a)
    (dotimes (i n)
      (let ((v (make-array m
                           :element-type (array-element-type a)
                           :displaced-to a
                           :displaced-index-offset (* i m))))
        (destructuring-bind (min max)
            (iter (for x in-vector v)
                  (minimize x into min)
                  (maximize x into max)
                  (finally (return (list min max))))
          (setf (aref v  0    ) max
                (aref v (1- m)) min)))))
  a)
 
(fn (make-array '(3 4)
                :element-type     'fixnum
                :initial-contents '((1 2 3 4)
                                    (5 6 7 8)
                                    (9 1 7 3))))
 
;; #2A((4 2 3 1) (8 6 7 5) (9 1 7 1))

(defun task (matr)
  (mapcar #'(lambda (row)
              (let ((max (apply 'max row))
                    (min (apply 'min row)))
                   (cons min (append (removef max (removef min row)) (list max))))) matr))
           
==> task
 
(task '((1 2 -1 -2 4 1) (8 9 -5 1 4 -6)))
 
==> ((-2 1 2 -1 1 4) (-6 8 -5 1 4 9))

(defun task (matr)
  (mapcar #'(lambda (row)
              (let ((max (apply 'max row))
                    (min (apply 'min row)))
                   (cons max (append (removef max (removef min row)) (list min))))) matr))
           
==> task
 
(task '((1 2 -1 -2 4 1) (8 9 -5 1 4 -6)))
 
==> ((4 1 2 -1 1 -2) (9 8 -5 1 4 -6))