Fix usages of nths

2008-09-12 18:15:22 -05:00 · 2008-09-12 18:15:22 -05:00 · 379566374c
parent 10c68ebb21
commit 379566374c
2 changed files with 2 additions and 2 deletions
--- a/extra/math/combinatorics/combinatorics.factor
+++ b/extra/math/combinatorics/combinatorics.factor
@ -39,7 +39,7 @@ PRIVATE>
    twiddle [ nPk ] keep factorial / ;

 : permutation ( n seq -- seq )
-    tuck permutation-indices nths ;
+    tuck permutation-indices swap nths ;

 : all-permutations ( seq -- seq )
    [
--- a/extra/project-euler/186/186.factor
+++ b/extra/project-euler/186/186.factor
@ -9,7 +9,7 @@ IN: project-euler.186
    55 [1,b] [ (generator) ] map <circular> ;

 : advance ( lag -- )
-    [ { 0 31 } nths sum 1000000 rem ] keep push-circular ;
+    [ { 0 31 } swap nths sum 1000000 rem ] keep push-circular ;

 : next ( lag -- n )
    [ first ] [ advance ] bi ;