Implement zipWithImpl

purescm · Oct 28, 2023 · 5b4f17a · 5b4f17a
1 parent 6afaf18
commit 5b4f17a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Array.ss b/src/Data/Array.ss
@@ -233,7 +233,7 @@
 
   (define zipWithImpl
     (lambda (f xs ys)
-      (error #f "zipWithImpl not implemented")))
+      (srfi:214:flexvector-map (lambda (x y) ((f x) y)) xs ys)))
 
 ;;------------------------------------------------------------------------------
 ;; Folding ---------------------------------------------------------------------