(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))