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

math.combinatorics: fix selections bug that went missing before previous commit.

factor-shell
John Benediktsson 2018-01-17 13:55:05 -08:00
parent b93dab1533
commit 9d35cd9048
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

@ -255,7 +255,7 @@ PRIVATE>
1 seq length 1 - [ 1 seq length 1 - [
over 0 = over 0 =
] [ ] [
[ seq [ + n /mod ] change-nth-unsafe ] keep [ seq [ + n /mod ] change-nth-unsafe ] keep 1 -
] do until 2drop ; inline ] do until 2drop ; inline
:: (selections) ( seq n -- selections ) :: (selections) ( seq n -- selections )