math.combinatorics: make selections use change-nth-unsafe again.
parent
1beaa8f494
commit
3147593b2c
|
@ -255,7 +255,7 @@ PRIVATE>
|
|||
1 seq length 1 - [
|
||||
dup 0 >= [ over 0 = ] [ t ] if
|
||||
] [
|
||||
[ seq [ + n /mod ] change-nth ] keep 1 -
|
||||
[ seq [ + n /mod ] change-nth-unsafe ] keep 1 -
|
||||
] do until 2drop ; inline
|
||||
|
||||
:: (selections) ( seq n -- selections )
|
||||
|
|
Loading…
Reference in New Issue