From e52438a4ff3e470863b3122cfd46a95c3a417516 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 10 Nov 2015 06:46:53 -0800 Subject: New function: group-reduce. * eval.c (eval_init): Register group-reduce intrinsic. * hash.c (group_reduce): New function. * hash.h (group_reduce): Declared. * txr.1: Documented group-reduce. --- hash.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'hash.h') diff --git a/hash.h b/hash.h index a8d9de4d..0d5d2ffe 100644 --- a/hash.h +++ b/hash.h @@ -52,6 +52,8 @@ val hash_construct(val hashl_args, val pairs); val hash_from_pairs_v(val pairs, struct args *hashv_args); val hash_list(val keys, struct args *hashv_args); val group_by(val func, val seq, struct args *hashv_args); +val group_reduce(val hash, val by_fun, val reduce_fun, val seq, + val initval, val filter_fun); val hash_keys(val hash); val hash_values(val hash); val hash_pairs(val hash); -- cgit v1.2.3