* arith.c (rising_product): New static function.

(n_choose_k, n_perm_k): New functions.

* arith.h (n_choose_k, n_perm_k): Declared.

* eval.c (eval_init): New functions interned.

* txr.1: Documented.

1 files changed, 2 insertions, 0 deletions

diff --git a/arith.h b/arith.h
index ef341707..a73bdde8 100644
--- a/arith.h
+++ b/arith.h
@@ -31,4 +31,6 @@ int highest_bit(int_ptr_t n);
 val normalize(val bignum);
 val in_int_ptr_range(val bignum);
 val cum_norm_dist(val x);
+val n_choose_k(val n, val k);
+val n_perm_k(val n, val k);
 void arith_init(void);