math.combinatorics: minor fix to reduce-combinations stack effect.
parent
77b3d509be
commit
02d652e6c0
|
@ -204,7 +204,7 @@ PRIVATE>
|
|||
[ combinations-quot find drop ]
|
||||
[ drop pick [ combination ] [ 3drop f ] if ] 3bi ; inline
|
||||
|
||||
: reduce-combinations ( ... seq k identity quot: ( ... prev elt -- next ) -- ... result )
|
||||
: reduce-combinations ( ... seq k identity quot: ( ... prev elt -- ... next ) -- ... result )
|
||||
[ -rot ] dip each-combination ; inline
|
||||
|
||||
: all-subsets ( seq -- subsets )
|
||||
|
|
Loading…
Reference in New Issue