* 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/eval.c b/eval.c
index 12f3ebd0..03e8d34d 100644
--- a/eval.c
+++ b/eval.c
@@ -2353,6 +2353,8 @@ void eval_init(void)
   reg_fun(intern(lit("exp"), user_package), func_n1(expo));
   reg_fun(intern(lit("sqrt"), user_package), func_n1(sqroot));
   reg_fun(intern(lit("cum-norm-dist"), user_package), func_n1(cum_norm_dist));
+  reg_fun(intern(lit("n-choose-k"), user_package), func_n2(n_choose_k));
+  reg_fun(intern(lit("n-perm-k"), user_package), func_n2(n_perm_k));
   reg_fun(intern(lit("fixnump"), user_package), func_n1(fixnump));
   reg_fun(intern(lit("bignump"), user_package), func_n1(bignump));
   reg_fun(intern(lit("floatp"), user_package), func_n1(floatp));