Add sum and prod convenience functions.

* eval.c (eval_init): prod and sum intrinsics registered.

* lib.c (sum, prod): New functions.

* lib.h (sum, prod): Declared.

* txr.1: Documented.

1 files changed, 12 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index b8a165f5..bf7ce8ce 100644
--- a/lib.c
+++ b/lib.c
@@ -3277,6 +3277,18 @@ val numneqv(struct args *args)
   return t;
 }
 
+val sum(val seq)
+{
+  args_decl_list(args, ARGS_MIN, tolist(seq));
+  return plusv(args);
+}
+
+val prod(val seq)
+{
+  args_decl_list(args, ARGS_MIN, tolist(seq));
+  return mulv(args);
+}
+
 val max2(val a, val b)
 {
   return if3(less(a, b), b, a);