diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2024-07-16 14:37:03 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2024-07-16 14:37:03 -0700 |
| commit | 351291c960bd8ff3ae6b8277af8613dd67b86c89 (patch) | |
| tree | 76f7bf6d5ea62d53b63408b6237ccc12f9768a3e /eval.c | |
| parent | 175075adce87494c9eb97bf7f430dd4a68d623e5 (diff) | |
| download | txr-351291c960bd8ff3ae6b8277af8613dd67b86c89.tar.gz txr-351291c960bd8ff3ae6b8277af8613dd67b86c89.tar.bz2 txr-351291c960bd8ff3ae6b8277af8613dd67b86c89.zip | |
New functions: find-maxes and find-mins.
* eval.c (eval_init): New intrinsic functions find-maxes and
find-mins.
* lib.[ch] (find_maxes, find_mins): New function.
* tests/012/seq.tl: New tests.
* txr.1: Documented.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -7794,8 +7794,10 @@ 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-maxes"), user_package), func_n3o(find_maxes, 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-mins"), user_package), func_n3o(find_mins, 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)); |