Clojure Найти максимальный и минимальный элементы матрицы

defun matrix-max-min (w &aux (v (flat w)))
  (values (reduce #'max v) (reduce #'min v)))
 
(defun flat (w &optional acc) 
  (cond ((null w) acc)
        ((atom w) (cons w acc))
        ((flat (car w) (flat (cdr w) acc)))))
 
> (matrix-max-min '((1 2) (3 4) (5 6)))
6
1

(defun matrix-max-min (w)
  (values 
   (loop for a in w maximizing (maxi a))
   (loop for a in w minimizing (mini a))))
 
(defun maxi (w)
  (loop for a in w maximizing a))
 
(defun mini (w)
  (loop for a in w minimizing a))
 
> (matrix-max-min '((1 2) (3 4) (5 6)))
6
1

(defun Search-Max-Min (ls &optional acc)
  (cond
    ((null ls) acc)
    ((atom ls)
     (cond
       ((null acc) (cons ls ls))
       ((> ls (car acc)) (rplaca acc ls))
       ((< ls (cdr acc)) (rplacd acc ls))
       (t acc)))
    (t (Search-Max-Min (car ls) (Search-Max-Min (cdr ls) acc)))))
 
(Search-Max-Min '((1 2) (3 4) (5 6)))
; (6 . 1)
(Search-Max-Min '(6 (3 ((1) 7)) -4 (-7 (9 (8 5)) 2) -3))
; (9 . -7)

(defun min-max (matr)
  (let ((max-el (apply 'max (mapcar #'(lambda (x) (apply 'max x)) matr)))
        (min-el (apply 'min (mapcar #'(lambda (x) (apply 'min x)) matr))))
    (list min-el max-el))) 
 
==> min-max
 
(min-max '((1 2 3) (4 -5 6) (-7 8 -9)))
 
==> (-9 8)
 
(defun min-max (matr)
  (let ((flat-matr (apply 'append matr)) (min-el 0) (max-el 0))
        (iter (for x in flat-matr) (maximizing x into max-el) (minimizing x into min-el))
    (list min-el max-el))) 
 
==> min-max
 
(min-max '((1 2 3) (4 -5 6) (-7 8 -9)))
 
==> (-9 8)

(ns learn-clojure.example
  (:require [clojure.core.matrix :as matrix]))
 
(defn m-min-max [m]
  ((juxt matrix/emin matrix/emax) m))
;; => #'learn-clojure.example/m-min-max
 
(m-min-max [[5 8] [7 1] [2 6]])
;; => [1 8]

(defun matrix-max-min (w)
            (values (reduce #'max w :key #'car) 
                    (reduce #'min w :key #'car)))

(defun matr-min-max (l)
    (cons 
        (apply #'max (apply #'mapcar (cons 'max l)))
        (apply #'min (apply #'mapcar (cons 'min l)))))
 
(matr-min-max '((1 2 3) (4 5 6) (7 8 9))) ==> (9 . 1)

(defun matrix-max-min (w)
  (values 
   (reduce #'max (mapcar #'(lambda (a) (reduce #'max a)) w))
   (reduce #'min (mapcar #'(lambda (a) (reduce #'min a)) w))))
 
> (matrix-max-min '((1 2) (3 4) (5 6)))
6
1

(defun matrix-max-min (w)
  (values (edge w #'max) (edge w #'min)))
 
(defun edge (w p)
  (reduce p (mapcar #'(lambda (a) (reduce p a)) w)))
 
> (matrix-max-min '((1 2) (3 4) (5 6)))
6
1

(defun matrix-max-min (w)
  (values (edge w 'max) (edge w 'min)))
 
(defun edge (w p)
  (reduce p (apply #'mapcar (cons p w))))
 
> (matrix-max-min '((1 2) (3 4) (5 6)))
6
1

(defun matrix-max-min (w)
  (values (edge w #'max) (edge w #'min)))
 
(defun edge (w p)
  (reduce p (apply #'mapcar (cons p w))))
 
> (matrix-max-min '((1 2) (3 4) (5 6)))
6
1

(defun matrix-max-min (w &aux (v (apply #'nconc w)))
  (values (reduce #'max v) (reduce #'min v)))
 
> (matrix-max-min '((1 2) (3 4) (5 6)))
6
1

(defun matrix-max-min (w &aux (v (reduce #'nconc w)))
  (values (reduce #'max v) (reduce #'min v)))
 
> (matrix-max-min '((1 2) (3 4) (5 6)))
6
1