Дана матрица, найти ее наибольший элемент и номера строки и столбца, на пересечении которых он находится

(defun get-el (matr i j)
  (nth j (nth i matr)))         
 
==> get-el
 
(get-el '((1 2 3) (4 5 6)) 1 2)
 
==> 6
 
(defun max-elt (matr)
  (let ((n (- (length matr) 1))
        (m (- (length (car matr)) 1))
        (im 0)
        (jm 0)
        (em (caar matr)))
       (iter (for i from 0 to n)
         (iter (for j from 0 to m)
           (let ((a (get-el matr i j)))
             (when (> a em) (setq em a im i jm j)))))
       (list em im jm)))  
 
==> max-elt
 
(max-elt '((1 2 3 4) (-5 8 3 5)))
 
==> (8 1 1)

(defun max-elt (matr)
  (let* ((rmax (mapcar #'(lambda (row n) (list (apply 'max row) n)) matr (range 1 (length matr))))
         (amax (apply 'max (mapcar 'car  rmax)))
         (nmax (cadar (remove-if #'(lambda (z) (<> amax (car z))) rmax))))
    (values amax nmax (+ 1 (position amax (nth (- nmax 1) matr))))))
 
==> max-elt
 
(max-elt '((1 2 3) (-1 -2 5) (3 4 2)))
 
==> 5
2
3

(defun max-number (w
                   &aux
                   (a (length (car w)))
                   (v (flat w))
                   (m (reduce #'max v))
                   (p (position m v)))
  (list m (floor p a) (rem p a)))
 
> (max-number '((1 2 3 4) (-5 8 3 5)))
(8 1 1)
> (max-number '((1 2 3) (-1 -2 5) (3 4 2)))
(5 1 2)

(defun max-number (w
                   &aux
                   (a (length (car w)))
                   (v (flat w))
                   (m (reduce #'max v))
                   (p (position m v)))
  (values m (floor p a) (rem p a)))
 
> (max-number '((1 2 3 4) (-5 8 3 5)))
8
1
1
> (max-number '((1 2 3) (-1 -2 5) (3 4 2)))
5
1
2

(defun flat (w)
  (loop for a in w 
        if (and a (atom a)) collect a
        else nconc (flat a)))

(max-elt '((1 2) (-1 -2)))
 
Внутри LET: EVFUN: Не найдена функция RANGE
==> ERRSTATE

(defun range (n k)
  (cond ((= n k) (list n))
        ((> n k) (range k n))
        (t (cons n (range (+ n 1) k)))))