diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-02-22 07:43:47 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-22 07:43:47 -0800 |
| commit | e987585d08122ecf3448a2d432346d2e128e5926 (patch) | |
| tree | 582bcfcb1881c471578b598d62ad38429ade3d84 /tests/012 | |
| parent | c38dbf7975d0df4758b295b90a47c1dbaaeaa976 (diff) | |
| download | txr-e987585d08122ecf3448a2d432346d2e128e5926.tar.gz txr-e987585d08122ecf3448a2d432346d2e128e5926.tar.bz2 txr-e987585d08122ecf3448a2d432346d2e128e5926.zip | |
find-max: convert to seq_info iteration.
* lib.c (find_max): Simplify into a single loop rather than
handling various sequence types specially. This means it
works for all iterable objects now.
* txr.1: find-max documentation updated; discussion of
hash tables removed, since the described behavior is the
one expected for hash tables as iterables.
* tests/012/seq.tl: Add some test coverage.
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/seq.tl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 1bc45b55..3c56dfda 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -445,3 +445,16 @@ (pairlis "" #(1 2 3)) nil (pairlis "abcd" #()) nil (pairlis '(1 2 3) '(a b c) '(4 5 6)) ((1 . a) (2 . b) (3 . c) 4 5 6)) + +(mtest + (find-max nil) nil + [find-max '("alpha" "charlie" "aardvark" "bravo") less] "aardvark" + [find-max '("alpha" "charlie" "aardvark" "bravo") less reverse] "alpha" + [find-max '("alpha" "charlie" "aardvark" "bravo") : reverse] "bravo" + (find-max 1..10) 9 + [find-max #H(() (a 1) (b 2) (c 3)) : cdr] (c . 3)) + +(mtest + (find-max-key nil) nil + [find-max-key '("alpha" "charlie" "aardvark" "bravo") less upcase-str] "AARDVARK" + [find-max-key #H(() (a 1) (b 2) (c 3)) : cdr] 3) |