From 5e72e73394c005dc816b10cdcb5930499e39ad7b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku 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. --- lib.h | 1 + 1 file changed, 1 insertion(+) (limited to 'lib.h') diff --git a/lib.h b/lib.h index 817e8d87..0bc7013e 100644 --- a/lib.h +++ b/lib.h @@ -688,6 +688,7 @@ val lazy_flatcar(val tree); val tuples(val n, val seq, val fill); val tuples_star(val n, val seq, val fill); val partition_by(val func, val seq); +val partition_if(val func, val seq, val count_in); val partition(val seq, val indices); val split(val seq, val indices); val partition_star(val seq, val indices); -- cgit v1.2.3