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

math.combinatorics: fix map>assoc-combinations (shouldn't have been locals).

db4
John Benediktsson 2013-04-18 09:04:16 -07:00
parent 345b5bb678
commit 3ca65a2b47
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/combinatorics/combinatorics.factor
View File

@ -194,7 +194,7 @@ PRIVATE>
: filter-combinations ( ... seq k quot: ( ... elt -- ... ? ) -- ... newseq ) : filter-combinations ( ... seq k quot: ( ... elt -- ... ? ) -- ... newseq )
selector [ each-combination ] dip ; inline selector [ each-combination ] dip ; inline
:: map>assoc-combinations ( ... seq k quot: ( ... elt -- ... key value ) exemplar -- ... assoc ) : map>assoc-combinations ( ... seq k quot: ( ... elt -- ... key value ) exemplar -- ... assoc )
[ combinations-quot ] dip map>assoc ; inline [ combinations-quot ] dip map>assoc ; inline
: all-combinations ( seq k -- seq' ) : all-combinations ( seq k -- seq' )