Clojure Найти сумму, произведение и количество элементов матрицы, максимальный и минимальный элементы

;; Сумма:
 
(defun sum-matr (matr)
  (apply '+ (mapcar #'(lambda (r) (apply '+ r)) matr))) 
 
==> sum-matr
 
(sum-matr '((1 2 3) (4 5 6) (7 8 9)))
 
==> 45
 
;; произведение
 
(defun prod-matr (matr)
  (apply '* (mapcar #'(lambda (r) (apply '* r)) matr))) 
 
==> prod-matr
(prod-matr '((1 2 3) (4 5 6) (7 8 9)))
 
==> 362880

;; минимум и максимум "в одном флаконе":
 
(defun max-min (matr)
  (let ((max (apply 'max (mapcar #'(lambda (r) (apply 'max r)) matr)))
        (min (apply 'min (mapcar #'(lambda (r) (apply 'min r)) matr))))
       (list min max)))
 
==> max-min
 
(max-min '((1 2 -3) (4 5 6) (7 8 0)))
 
==> (-3 8)

;; Сумма и произведение диагональных (HomeLisp):
 
(defun sum-diag (matr)
  (apply '+ (mapcar #'(lambda (r n) (nth n r)) matr (range 0 (- (length matr) 1)))))
 
==> sum-diag
 
(sum-diag '((1 2 3) (4 5 6) (7 8 9)))
 
==> 15
 
(defun prod-diag (matr)
  (apply '* (mapcar #'(lambda (r n) (nth n r)) matr (range 0 (- (length matr) 1)))))
 
==> prod-diag
 
(prod-diag '((1 2 3) (4 5 6) (7 8 9)))
 
==> 45

(ns learn-clojure.example
  (:use [clojure.core.matrix :only [ecount emax emin ereduce esum diagonal]]))
 
(defn task [m]
  (let [mdiag (diagonal m)]
    (into ((juxt esum (partial ereduce *) ecount emax emin) m)
          ((juxt esum (partial ereduce *) ecount) mdiag))))
;; => #'learn-clojure.example/task
 
(task [[1 2 3] [4 5 6] [7 8 9]])
;; => [45 362880 9 9 1 15 45 3]

(defun Freebie (array)
  (let ((sum 0) (multi 1) (amount 0) (max ()) (min ())
        (sum-d 0) (multi-d 1))
    (destructuring-bind (x y) (array-dimensions array)
      (dotimes (i x)
        (dotimes (j y)
          (let ((elt (aref array i j)))
            (if (= i j)
                (setq sum    (+ sum elt)
                      multi  (* multi elt)
                      amount (incf amount)
                      max (if max (if (> elt max) elt max) elt)
                      min (if min (if (< elt min) elt min) elt)
                      sum-d    (+ sum-d elt)
                      multi-d  (* multi-d elt))
                (setq sum    (+ sum elt)
                      multi  (* multi elt)
                      amount (incf amount)
                      max (if max (if (> elt max) elt max) elt)
                      min (if min (if (< elt min) elt min) elt))))))
       (list sum multi amount max min sum-d multi-d x))))
 
(Freebie #2A((1 2 3) (4 5 6) (7 8 9)))
; (45 362880 9 9 1 15 45 3)