diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-02-23 06:43:28 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-23 06:43:28 -0800 |
| commit | 5e72e73394c005dc816b10cdcb5930499e39ad7b (patch) | |
| tree | a2393b1c403c924fd97fde5db810a3234b24870f /tests/012 | |
| parent | e987585d08122ecf3448a2d432346d2e128e5926 (diff) | |
| download | txr-5e72e73394c005dc816b10cdcb5930499e39ad7b.tar.gz txr-5e72e73394c005dc816b10cdcb5930499e39ad7b.tar.bz2 txr-5e72e73394c005dc816b10cdcb5930499e39ad7b.zip | |
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.
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/seq.tl | 26 |
1 files changed, 26 insertions, 0 deletions
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")) |