add max-length word

2005-10-23 22:33:40 +00:00 · 2005-10-23 22:33:40 +00:00 · 487926f779
parent 84fb8eccb7
commit 487926f779
1 changed files with 3 additions and 0 deletions
--- a/library/collections/sequence-combinators.factor
+++ b/library/collections/sequence-combinators.factor
@ -69,6 +69,9 @@ M: object map ( seq quot -- seq )
 : min-length ( seq seq -- n )
    [ length ] 2apply min ; flushable

+: max-length ( seq seq -- n )
+    [ length ] 2apply max ; flushable
+
 : 2each ( seq seq quot -- )
    #! Don't use with lists.
    -rot 2dup min-length [ (2each) ] repeat 3drop ; inline