From 1a8c81d07efe55c5a6909aff32359d4b8866af1c Mon Sep 17 00:00:00 2001
From: Elizabeth Hunt <elizabeth.hunt@simponic.xyz>
Date: Wed, 27 Sep 2023 09:53:37 -0600
Subject: keep unit tests but make directory structure more consistent with
 requirements i did not read

---
 cl/src/vector/distance.lisp |  6 ------
 cl/src/vector/norm.lisp     | 17 -----------------
 cl/src/vector/package.lisp  |  7 -------
 3 files changed, 30 deletions(-)
 delete mode 100644 cl/src/vector/distance.lisp
 delete mode 100644 cl/src/vector/norm.lisp
 delete mode 100644 cl/src/vector/package.lisp

(limited to 'cl/src/vector')

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))
-- 
cgit v1.2.3-70-g09d2