Работа с матрицами, поиск наибольшей строки с ее выводом и выводом ее суммы

(defun maxx (w &aux (m (loop for a in w maximize (reduce #'+ a))))
  (loop for a in w when (= (reduce #'+ a) m) return (values m a)))
 
> (maxx '((0 0 1) (0 0 2) (0 0 3)))
3
(0 0 3)

(defun maxxx (w &aux (m (loop for a in w maximize (reduce #'+ a))))
  (loop for a in w
        when (= (reduce #'+ a) m) collect a into v
        finally (return (values m v))))
 
> (maxxx '((0 0 1) (0 1 2) (0 0 3)))
3
((0 1 2) (0 0 3))

(defun maxx (w
              &aux
              (m (reduce #'max w
                         :key #'(lambda (a)
                                  (reduce #'+ a)))))
  (loop for a in w
        when (= (reduce #'+ a) m) return (values m a)))
 
> (maxx '((0 0 1) (0 1 2) (0 0 3)))
3
(0 1 2)

(defun maxx (w
              &aux
              (m (reduce #'max w
                         :key #'(lambda (a)
                                  (eval (cons '+ a))))))
  (loop for a in w
        when (= (eval (cons '+ a)) m) return (values m a)))
 
> (maxx '((0 0 1) (0 1 2) (0 0 3)))
3
(0 1 2)

(defun maxxx (w
              &aux
              (m (reduce #'max w
                         :key #'(lambda (a)
                                  (reduce #'+ a)))))
  (loop for a in w
        when (= (reduce #'+ a) m) collect a into v
        finally (return (values m v))))
 
> (maxxx '((0 0 1) (0 1 2) (0 0 3)))
3
((0 1 2) (0 0 3))

(defun maxxx (w
              &aux
              (m (reduce #'max w
                         :key #'(lambda (a)
                                  (eval (cons '+ a))))))
  (loop for a in w
        when (= (eval (cons '+ a)) m) collect a into v
        finally (return (values m v))))
 
> (maxxx '((0 0 1) (0 1 2) (0 0 3)))
3
((0 1 2) (0 0 3))

(defun task (matr)
  (let* ((sums (mapcar (lambda (x) (apply '+ x)) matr))
         (maxs (apply 'max sums))
         (pairs (mapcar 'list (range 0 (- (length sums) 1)) sums))
         (nmax (remove-if (lambda (p) (< (cadr p) maxs)) pairs)))
     (printline maxs)
     (mapcar (lambda (r) (printline (nth (car r) matr))) nmax)))
 
(task '((1 2 3 4) (4 2 0 1) (7 5 -6 3) (1 1 7 1) (2 0 3 1)))
10  ;; это максимальная сумма
(1 2 3 4) ;; это первая строка с макс. суммой
(1 1 7 1) ;; это вторая
 
==> ((1 2 3 4) (1 1 7 1))

(defun maxxxx (w &aux (m (maxx w)))
  (list m (maxxx w m)))
 
(defun maxxx (w m)
  (cond ((null w) nil)
        ((= (sum (car w)) m) (cons (car w) (maxxx (cdr w) m)))
        (t (maxxx (cdr w) m))))
 
(defun maxx (w
             &optional (m (sum (car w)))
             &aux (n (sum (car w))))
  (cond ((null w) m)
        ((> n m) (maxx (cdr w) n))
        (t (maxx (cdr w) m))))
 
(defun sum (w)
  (if w (+ (car w) (sum (cdr w))) 0))
 
> (maxxxx '((0 0 1) (0 1 2) (0 0 3)))
(3 ((0 1 2) (0 0 3)))

(defun maxxxx (w &aux (m (maxx w)))
  (progn (princ m) (maxxx w m)))
 
(defun maxxx (w m)
  (cond ((null w) nil)
        ((= (sum (car w)) m) (cons (car w) (maxxx (cdr w) m)))
        (t (maxxx (cdr w) m))))
 
(defun maxx (w
             &optional (m (sum (car w)))
             &aux (n (sum (car w))))
  (cond ((null w) m)
        ((> n m) (maxx (cdr w) n))
        (t (maxx (cdr w) m))))
 
(defun sum (w)
  (if w (+ (car w) (sum (cdr w))) 0))
 
> (maxxxx '((0 0 1) (0 1 2) (0 0 3)))
3
((0 1 2) (0 0 3))