From 5c794e855472d4c86cdffdc49776baca1a8f81aa Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 12 Sep 2024 19:45:42 +0100
Subject: vectors: Add vector-append-map.

* ravanan/vectors.scm (vector-append-map): New public function.
---
 ravanan/vectors.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/ravanan/vectors.scm b/ravanan/vectors.scm
index 0b62abf..9c0dd49 100644
--- a/ravanan/vectors.scm
+++ b/ravanan/vectors.scm
@@ -25,6 +25,7 @@
                                          vector-every
                                          vector-fold))
   #:export (vector-map->list
+            vector-append-map
             vector-append-map->list
             map->vector
             vector-filter
@@ -49,6 +50,17 @@
           first-vector
           other-vectors)))
 
+(define (vector-append-map proc first-vector . other-vectors)
+  "Map @var{proc} over vectors and return a vector of the results appended
+together."
+  (apply vector-fold
+         (lambda (_ result . elements)
+           (vector-append result
+                          (apply proc elements)))
+         (vector)
+         first-vector
+         other-vectors))
+
 (define (vector-append-map->list proc first-vector . other-vectors)
   "Map @var{proc} over vectors and return a list of the results appended
 together."
-- 
cgit v1.2.3