Дана квадратная матрица (как список списков). Получить координаты минимального элемента

(defun task (matr)
  (let ((i nil) 
        (min-el (apply 'min (mapcar #'(lambda (x) (apply 'min x)) matr))))
        (mapcar #'(lambda (x y) (when (member min-el x) (push y i))) matr (range 0 (1- (length matr))))
        (list (car i) (position min-el (nth (car i) matr))))) 
 
==> task
 
(task '((11 22 33) (1 2 3) (9 -8 3)))
 
==> (2 1)
 
;; Но если минимум встречается более одного раза, то
;; будет показан "последний" при обходе по строкам
 
(task '((11 22 -8) (1 2 3) (9 -8 3)))
 
==> (2 1)
 
;; а это решение даст "первый":
 
(defun task (matr)
  (let ((i nil) 
        (min-el (apply 'min (mapcar #'(lambda (x) (apply 'min x)) matr))))
        (mapcar #'(lambda (x y) (when (member min-el x) (push y i))) matr (range 0 (1- (length matr))))
        (list (apply 'min i) (position min-el (nth (apply 'min i) matr))))) 
 
 
==> task
 
(task '((11 22 -8) (1 2 3) (9 -8 3)))
 
==> (0 2)

(defun matrix-p (mx)
  (and
    (apply 'and
       (mapcar
         '(lambda (x)
        (and (listp x)
             (apply 'and (mapcar 'atom x)) ; для элементов любого типа
        )
          )
         mx
       )
    )
    (apply '= (mapcar 'length mx))
  )
)

(defun task (mx / me i j res)
  (setq
    me  (apply 'min (apply 'mapcar (cons 'min mx)))
    i   0
    j   0
    res '()
  )
  ;(if (matrix-p mx)
    (repeat (length mx)
      (repeat (length (nth i mx))
    (if (equal me (nth j (nth i mx)))
      (setq res (cons (list i j) res))
    )
    (setq
      j
       (if (= j (1- (length (nth i mx))))
         0
         (1+ j)
       )
    )
 
      )
      (setq i (1+ i))
    )
  ;)
  (reverse res)
)
 
(setq mx
       '((1 -2 -2 3)
     (4 5 -2 -2)
     (-2 8 9)
    )
)
 
 (task mx)
 ==> ((0 1) (0 2) (1 2) (1 3) (2 0))