diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-02-21 03:08:11 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-21 03:08:11 -0800 |
| commit | aad381bc6ce5458ef2483238066ae7fe1577d508 (patch) | |
| tree | ce47953b39b6a1fadcbf45052cc79c83f55bdbf6 /eval.c | |
| parent | c914063fd0eb8c02d8362b86a61933c656a938bc (diff) | |
| download | txr-aad381bc6ce5458ef2483238066ae7fe1577d508.tar.gz txr-aad381bc6ce5458ef2483238066ae7fe1577d508.tar.bz2 txr-aad381bc6ce5458ef2483238066ae7fe1577d508.zip | |
New functions: find-max-key and find-min-key.
* eval.c (eval_init): Register find-max-key and find-min-key
intrinsics.
* lib.c (find_max_key, find_min_key): New functions.
* lib.h (find_max_key, find_min_key): Declared.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -7340,7 +7340,9 @@ void eval_init(void) reg_fun(intern(lit("find-if"), user_package), func_n3o(find_if, 2)); reg_fun(intern(lit("rfind-if"), user_package), func_n3o(rfind_if, 2)); reg_fun(intern(lit("find-max"), user_package), func_n3o(find_max, 1)); + reg_fun(intern(lit("find-max-key"), user_package), func_n3o(find_max_key, 1)); reg_fun(intern(lit("find-min"), user_package), func_n3o(find_min, 1)); + reg_fun(intern(lit("find-min-key"), user_package), func_n3o(find_min_key, 1)); reg_fun(intern(lit("find-true"), user_package), func_n3o(find_true, 2)); reg_fun(intern(lit("multi-sort"), user_package), func_n3o(multi_sort, 2)); reg_fun(intern(lit("set-diff"), user_package), func_n4o(set_diff, 2)); |