math.combinatorics: faster combinations by inlining next-combination.

db4
John Benediktsson 2013-10-14 15:44:19 -07:00
parent f4ade1c5f2
commit e9c6bf6b9a
1 changed files with 1 additions and 3 deletions

View File

@ -213,9 +213,7 @@ INSTANCE: combinations immutable-sequence
1 [-] seq increment-rest 1 [-] seq increment-rest
] [ ] [
seq increment-last seq increment-last
] if* seq ; ] if* seq ; inline
HINTS: next-combination array fixnum ;
:: combinations-quot ( seq k quot -- seq quot' ) :: combinations-quot ( seq k quot -- seq quot' )
seq length :> n seq length :> n