Add useful "map combinations" macro. See counter example

2022-08-20 16:36:48 +03:00
parent e667b0657d
commit 79f9ac5ad6
2 changed files with 18 additions and 26 deletions
--- a/utest.scm
+++ b/utest.scm
@@ -967,6 +967,18 @@
    ((_ () body ...)
     (utest/tb (#f) body ...))))

+;;;
+;;; Map combinations macro
+;;;
+(define-syntax utest/map-comb
+  (syntax-rules ()
+    ((_ (args ...) (body ...) lists ...)
+     (apply
+      map
+      (lambda (args ...) (body ...))
+      (transpose
+       (combinations lists ...))))))
+
 ;;;
 ;;; Delete working folders
 ;;;