From 653b204b583da363a97464960a00f1bd0dbed865 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Thu, 13 Jun 2024 02:07:46 +0900 Subject: Remove implementations --- algebraic-structures.foldable.vector.base.scm | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100644 algebraic-structures.foldable.vector.base.scm (limited to 'algebraic-structures.foldable.vector.base.scm') 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))))))) -- cgit v1.2.3