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

2013-10-14 15:44:19 -07:00 · 2013-10-14 15:44:19 -07:00 · e9c6bf6b9a
parent f4ade1c5f2
commit e9c6bf6b9a
1 changed files with 1 additions and 3 deletions
--- a/basis/math/combinatorics/combinatorics.factor
+++ b/basis/math/combinatorics/combinatorics.factor
@ -213,9 +213,7 @@ INSTANCE: combinations immutable-sequence
        1 [-] seq increment-rest
    ] [
        seq increment-last
-    ] if* seq ;
-
-HINTS: next-combination array fixnum ;
+    ] if* seq ; inline

 :: combinations-quot ( seq k quot -- seq quot' )
    seq length :> n