steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add max-length word

cvs
Slava Pestov 2005-10-23 22:33:40 +00:00
parent 84fb8eccb7
commit 487926f779
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/collections/sequence-combinators.factor
View File

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