src/vector,norm.lisp


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

(in-package :lizfcm.vector)

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

(defun max-norm (v)
  (reduce #'max v))