these lambdas are unnecessary

2023-09-27 09:56:00 -06:00 · 2023-09-27 09:56:00 -06:00 · 4584437d43
commit 4584437d43
parent 1a8c81d07e
1 changed files with 2 additions and 5 deletions
--- 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))