Remove implementations

1 files changed, 0 insertions, 21 deletions

diff --git a/algebraic-structures.foldable.vector.base.scm b/algebraic-structures.foldable.vector.base.scm
deleted file mode 100644
index 90d06da..0000000
--- a/algebraic-structures.foldable.vector.base.scm
+++ /dev/null
@@ -1,21 +0,0 @@
-(module (algebraic-structures foldable vector base) (foldl foldr)
-  (import scheme
-          (only (chicken base) add1 sub1))
-
-  (define (foldl f z v)
-    (let ((len (vector-length v)))
-      (let loop ((i 0)
-                 (acc z))
-        (if (= i len)
-            acc
-            (loop (add1 i)
-                  (f acc (vector-ref v i)))))))
-
-  (define (foldr f z v)
-    (let ((len (vector-length v)))
-      (let loop ((i (sub1 len))
-                 (acc z))
-        (if (< i 0)
-            acc
-            (loop (sub1 i)
-                  (f (vector-ref v i) acc)))))))