Use iota where necessary in tests

diff --git a/basis/math/combinatorics/combinatorics-tests.factor b/basis/math/combinatorics/combinatorics-tests.factor
index 8cd02399bcd7f599d31b427f2bfa59226a27ba2a..1bc4bbc825773822a31e219a0d11153e33cfc570 100644 (file)
--- a/basis/math/combinatorics/combinatorics-tests.factor
+++ b/basis/math/combinatorics/combinatorics-tests.factor
@@ -28,9 +28,9 @@ IN: math.combinatorics.tests
 [ { 0 1 3 2 } ] [ { 0 0 1 0 } >permutation ] unit-test
 [ { 1 2 0 6 3 5 4 } ] [ { 1 1 0 3 0 1 0 } >permutation ] unit-test
 
-[ { 0 1 2 3 } ] [ 0 4 permutation-indices ] unit-test
-[ { 0 1 3 2 } ] [ 1 4 permutation-indices ] unit-test
-[ { 1 2 0 6 3 5 4 } ] [ 859 7 permutation-indices ] unit-test
+[ { 0 1 2 3 } ] [ 0 4 iota permutation-indices ] unit-test
+[ { 0 1 3 2 } ] [ 1 4 iota permutation-indices ] unit-test
+[ { 1 2 0 6 3 5 4 } ] [ 859 7 iota permutation-indices ] unit-test
 
 [ { "a" "b" "c" "d" } ] [ 0 { "a" "b" "c" "d" } permutation ] unit-test
 [ { "d" "c" "b" "a" } ] [ 23 { "a" "b" "c" "d" } permutation ] unit-test
@@ -45,24 +45,24 @@ IN: math.combinatorics.tests
 [ { 3 0 2 1 } ] [ { 12 45 34 2 } inverse-permutation ] unit-test
 
 
-[ 2598960 ] [ 52 5 <combo> choose ] unit-test
+[ 2598960 ] [ 52 iota 5 <combo> choose ] unit-test
 
 [ 6 3 13 6 ] [ 7 4 28 next-values ] unit-test
 [ 5 2 3 5 ] [ 6 3 13 next-values ] unit-test
 [ 3 1 0 3 ] [ 5 2 3 next-values ] unit-test
 [ 0 0 0 0 ] [ 3 1 0 next-values ] unit-test
 
-[ 9 ] [ 0 5 3 <combo> dual-index ] unit-test
-[ 0 ] [ 9 5 3 <combo> dual-index ] unit-test
-[ 179 ] [ 72 10 5 <combo> dual-index ] unit-test
+[ 9 ] [ 0 5 iota 3 <combo> dual-index ] unit-test
+[ 0 ] [ 9 5 iota 3 <combo> dual-index ] unit-test
+[ 179 ] [ 72 10 iota 5 <combo> dual-index ] unit-test
 
 [ { 5 3 2 1 } ] [ 7 4 <combo> 8 combinadic ] unit-test
-[ { 4 3 2 1 0 } ] [ 10 5 <combo> 0 combinadic ] unit-test
-[ { 8 6 3 1 0 } ] [ 10 5 <combo> 72 combinadic ] unit-test
-[ { 9 8 7 6 5 } ] [ 10 5 <combo> 251 combinadic ] unit-test
+[ { 4 3 2 1 0 } ] [ 10 iota 5 <combo> 0 combinadic ] unit-test
+[ { 8 6 3 1 0 } ] [ 10 iota 5 <combo> 72 combinadic ] unit-test
+[ { 9 8 7 6 5 } ] [ 10 iota 5 <combo> 251 combinadic ] unit-test
 
-[ { 0 1 2 } ] [ 0 5 3 <combo> combination-indices ] unit-test
-[ { 2 3 4 } ] [ 9 5 3 <combo> combination-indices ] unit-test
+[ { 0 1 2 } ] [ 0 5 iota 3 <combo> combination-indices ] unit-test
+[ { 2 3 4 } ] [ 9 5 iota 3 <combo> combination-indices ] unit-test
 
 [ { "a" "b" "c" } ] [ 0 { "a" "b" "c" "d" "e" } 3 combination ] unit-test
 [ { "c" "d" "e" } ] [ 9 { "a" "b" "c" "d" "e" } 3 combination ] unit-test