src/vector/norm.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

(in-package :lizfcm.vector)

(defun p-norm (p)
  (lambda (v)
    (expt
      (reduce (lambda (acc x)
                (+ acc x))
              (mapcar (lambda (x)
                        (abs
                          (expt x p)))
                      v))
      (/ 1 p))))

(defun max-norm (v)
  (reduce (lambda (acc x)
            (max acc x))
          v))