From 3b13057d50e58625e72ad9f18a86f4193a838099 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 4 Dec 2021 02:20:06 -0800
Subject: tuples*: new function.

* eval.c (eval_init): Register tuples* intrinsic.

* lib.c (tuples_star_func): New static function.
(tuples_star): New function.

* lib.h (tuples_star): Declared.

* tests/012/seq.tl: New test cases.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.
---
 tests/012/seq.tl | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

(limited to 'tests/012')

diff --git a/tests/012/seq.tl b/tests/012/seq.tl
index 7e0ae00f..ef5fad7c 100644
--- a/tests/012/seq.tl
+++ b/tests/012/seq.tl
@@ -262,3 +262,50 @@
 
 (test
   (take 3 (tuples 3 (range 0))) ((0 1 2) (3 4 5) (6 7 8)))
+
+(mtest
+  (tuples* 0 nil) :error
+  (tuples* 3.5 '(1 2 3)) :error
+  (tuples* -1 "abc") :error)
+
+(mtest
+  (tuples* 1 nil) nil
+  (tuples* 1 "") nil
+  (tuples* 1 #()) nil)
+
+(mtest
+  (tuples* 1 '(a)) ((a))
+  (tuples* 1 "a") ("a")
+  (tuples* 1 #(1)) (#(1)))
+
+(mtest
+  (tuples* 1 '(a b c)) ((a) (b) (c))
+  (tuples* 1 "abc") ("a" "b" "c")
+  (tuples* 1 #(1 2 3)) (#(1) #(2) #(3)))
+
+(mtest
+  (tuples* 1 '(a b c) 'd) ((a) (b) (c))
+  (tuples* 1 "abc" #\d) ("a" "b" "c")
+  (tuples* 1 #(1 2 3) 4) (#(1) #(2) #(3)))
+
+(mtest
+  (tuples* 2 '(a b c)) ((a b) (b c))
+  (tuples* 2 "abc") ("ab" "bc")
+  (tuples* 2 #(1 2 3)) (#(1 2) #(2 3)))
+
+(mtest
+  (tuples* 3 '(a b c)) ((a b c))
+  (tuples* 3 "abc") ("abc")
+  (tuples* 3 #(1 2 3)) (#(1 2 3)))
+
+(mtest
+  (tuples* 3 '(a b) 'c) ((a b c))
+  (tuples* 3 "a" #\c) ("acc")
+  (tuples* 3 #() 1) (#(1 1 1)))
+
+(test
+  (lforce (tuples* 3 "a" 1)) :error)
+
+(mtest
+  (take 3 (tuples* 3 (range 0))) ((0 1 2) (1 2 3) (2 3 4))
+  (take 3 (tuples* 3 0)) ((0 1 2) (1 2 3) (2 3 4)))
-- 
cgit v1.2.3