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

infimum, supremum: use map-reduce

db4
Slava Pestov 2009-02-02 03:33:40 -06:00
parent dd4aea9ca8
commit 833b805f5c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sequences/sequences.factor
View File

@ -840,9 +840,9 @@ PRIVATE>
: product ( seq -- n ) 1 [ * ] binary-reduce ;
: infimum ( seq -- n ) dup first [ min ] reduce ;
: infimum ( seq -- n ) [ ] [ min ] map-reduce ;
: supremum ( seq -- n ) dup first [ max ] reduce ;
: supremum ( seq -- n ) [ ] [ max ] map-reduce ;
: sigma ( seq quot -- n ) [ 0 ] 2dip [ rot slip + ] curry each ; inline