From 7a07e8742c9c492a04d108879628f9fc1264fa16 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 2 Mar 2012 10:05:57 -0800 Subject: [PATCH] math.combinatorics: fix tests for next-permutation. --- basis/math/combinatorics/combinatorics-tests.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/math/combinatorics/combinatorics-tests.factor b/basis/math/combinatorics/combinatorics-tests.factor index e7f4c540e3..ad10a1c8b7 100644 --- a/basis/math/combinatorics/combinatorics-tests.factor +++ b/basis/math/combinatorics/combinatorics-tests.factor @@ -1,4 +1,4 @@ -USING: math.combinatorics math.combinatorics.private tools.test sequences ; +USING: kernel math math.combinatorics math.combinatorics.private tools.test sequences ; IN: math.combinatorics.tests [ 1 ] [ 0 factorial ] unit-test @@ -49,7 +49,7 @@ IN: math.combinatorics.tests [ "21" ] [ "12" next-permutation ] unit-test [ "8344112666" ] [ "8342666411" next-permutation ] unit-test [ "ABC" "ACB" "BAC" "BCA" "CAB" "CBA" "ABC" ] -[ "ABC" 6 [ dup >string next-permutation ] times ] unit-test +[ "ABC" 6 [ dup dup clone-like next-permutation ] times ] unit-test [ 2598960 ] [ 52 iota 5 choose ] unit-test