New function: grade.

Inspired by APL.

* eval.c (eval_init): Register grade intrinsic.

* lib.c (grade): New function.

* lib.h (grade): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index a4138bda..6c61d282 100644
--- a/lib.h
+++ b/lib.h
@@ -1004,6 +1004,7 @@ val multi_sort(val lists, val funcs, val key_funcs);
 val sort_group(val seq, val keyfun, val lessfun);
 val unique(val seq, val keyfun, struct args *hashv_args);
 val uniq(val seq);
+val grade(val seq, val lessfun, val keyfun_in);
 val find(val list, val key, val testfun, val keyfun);
 val rfind(val list, val key, val testfun, val keyfun);
 val find_if(val pred, val list, val key);