15 lines
275 B
Common Lisp
15 lines
275 B
Common Lisp
(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))
|