From 5e72e73394c005dc816b10cdcb5930499e39ad7b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 23 Feb 2022 06:43:28 -0800
Subject: New function: partition-if.

* eval.c (eval_init): Register partition-if intrinsic.

* lib.c (partition_if_countdown_funv, partition_if_func): New
functions.
(partition_if): New function.

* lib.h (partition_if): Declared.

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

* txr.1: Documented.

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

(limited to 'tests/012')

diff --git a/tests/012/seq.tl b/tests/012/seq.tl
index 3c56dfda..1706e6df 100644
--- a/tests/012/seq.tl
+++ b/tests/012/seq.tl
@@ -458,3 +458,29 @@
   (find-max-key nil) nil
   [find-max-key '("alpha" "charlie" "aardvark" "bravo") less upcase-str] "AARDVARK"
   [find-max-key #H(() (a 1) (b 2) (c 3)) : cdr] 3)
+
+(defvarl fn (do and
+              (chr-isdigit @1)
+              (not (chr-isdigit @2))))
+
+(mtest
+  [partition-if tf nil] nil
+  [partition-if tf "abc"] ("a" "b" "c")
+  [partition-if nilf "abc"] ("abc")
+  [partition-if neql "aaaabbcdee"] ("aaaa" "bb" "c" "d" "ee")
+  (partition-if fn "a13cd9foo42z") ("a13" "cd9" "foo42" "z"))
+
+(mtest
+  (partition-if (op /= (- @2 @1) 1)
+                '(1 3 4 5 7 8 9 10 9 8 6 5 3 2))
+  ((1) (3 4 5) (7 8 9 10) (9) (8) (6) (5) (3) (2))
+  (partition-if (op > (abs (- @2 @1)) 1)
+                              '(1 3 4 5 7 8 9 10 9 8 6 5 3 2))
+  ((1) (3 4 5) (7 8 9 10 9 8) (6 5) (3 2)))
+
+(mtest
+  [partition-if neql "aaaabbcdee" 2] ("aaaa" "bb" "cdee")
+  [partition-if neql "aaaabbcdee" 1] ("aaaa" "bbcdee")
+  [partition-if fn "a13cd9foo42z" 2] ("a13" "cd9" "foo42z")
+  [partition-if fn "a13cd9foo42z" 1] ("a13" "cd9foo42z")
+  [partition-if fn "a13cd9foo42z" 0] ("a13cd9foo42z"))
-- 
cgit v1.2.3