math.combinatorics: remove duplicate nths-unsafe.
parent
4af98fa568
commit
3862c4f9b5
|
@ -49,9 +49,6 @@ MEMO: factorial ( n -- n! )
|
||||||
: permutation-iota ( seq -- iota )
|
: permutation-iota ( seq -- iota )
|
||||||
length factorial iota ; inline
|
length factorial iota ; inline
|
||||||
|
|
||||||
: nths-unsafe ( indices seq -- seq' )
|
|
||||||
[ [ nth-unsafe ] curry ] keep map-as ;
|
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: permutation ( n seq -- seq' )
|
: permutation ( n seq -- seq' )
|
||||||
|
|
Loading…
Reference in New Issue