3 files changed, 0 insertions, 30 deletions
diff --git a/cl/src/vector/distance.lisp b/cl/src/vector/distance.lisp
deleted file mode 100644
index 74631ce..0000000
--- a/cl/src/vector/distance.lisp
+++ /dev/null
@@ -1,6 +0,0 @@
-(in-package :lizfcm.vector)
-
-(defun distance (v1 v2 norm)
-  (let* ((d (mapcar #'- v1 v2))
-         (length (funcall norm d)))
-    length))
diff --git a/cl/src/vector/norm.lisp b/cl/src/vector/norm.lisp
deleted file mode 100644
index 2158296..0000000
--- a/cl/src/vector/norm.lisp
+++ /dev/null
@@ -1,17 +0,0 @@
-(in-package :lizfcm.vector)
-
-(defun p-norm (p)
-  (lambda (v)
-    (expt
-      (reduce (lambda (acc x)
-                (+ acc x))
-              (mapcar (lambda (x)
-                        (abs
-                          (expt x p)))
-                      v))
-      (/ 1 p))))
-
-(defun max-norm (v)
-  (reduce (lambda (acc x)
-            (max acc x))
-          v))
diff --git a/cl/src/vector/package.lisp b/cl/src/vector/package.lisp
deleted file mode 100644
index 009b190..0000000
--- a/cl/src/vector/package.lisp
+++ /dev/null
@@ -1,7 +0,0 @@
-(in-package :cl-user)
-(defpackage lizfcm.vector
-  (:use :cl)
-  (:export
-    :p-norm
-    :max-norm
-    :distance))