aboutsummaryrefslogtreecommitdiffhomepage
path: root/gtwiwtg.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'gtwiwtg.lisp')
-rw-r--r--gtwiwtg.lisp20
1 files changed, 20 insertions, 0 deletions
diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp
index 3cf1871..5e954ee 100644
--- a/gtwiwtg.lisp
+++ b/gtwiwtg.lisp
@@ -629,6 +629,26 @@ Caveat:
(list (filter! pred gen1)
(filter! (complement pred) gen2))))
+(defun intersperse! (gen1 gen2 &rest gens)
+ (inflate! #'seq (apply #'zip! gen1 gen2 gens)))
+
+(defun truncate! (n gen)
+ (map! #'first (zip! gen (times n))))
+
+(defun inject! (fn gen)
+ (map! (lambda (x) (funcall fn x) x) gen))
+
+(defun disperse! (n gen)
+ (loop
+ :for i :below n
+ :for cloned :in (nfurcate! n gen)
+ :collect
+ (let ((j i))
+ (map! #'second
+ (filter! (lambda (pair) (= j (mod (first pair) n)))
+ (indexed! cloned))))))
+
+
;;; CONSUMERS
(defmacro for (var-exp gen &body body)