diff options
| -rw-r--r-- | src/vector/norm.lisp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/vector/norm.lisp b/src/vector/norm.lisp index 2158296..aa51bce 100644 --- a/src/vector/norm.lisp +++ b/src/vector/norm.lisp @@ -3,8 +3,7 @@ (defun p-norm (p) (lambda (v) (expt - (reduce (lambda (acc x) - (+ acc x)) + (reduce #'+ (mapcar (lambda (x) (abs (expt x p))) @@ -12,6 +11,4 @@ (/ 1 p)))) (defun max-norm (v) - (reduce (lambda (acc x) - (max acc x)) - v)) + (reduce #'max v)) |