diff --git a/basis/math/matrices/matrices-tests.factor b/basis/math/matrices/matrices-tests.factor index 02139fb856..6d34bb8f93 100644 --- a/basis/math/matrices/matrices-tests.factor +++ b/basis/math/matrices/matrices-tests.factor @@ -675,7 +675,7 @@ PRIVATE> { 0 1 2 } { 3 4 5 } { 6 7 8 } -} matrix-except-all dup flatten sorted-histogram [ second ] map +} matrix-except-all dup flatten sorted-histogram values { [ length 9 = ] [ [ 4 = ] all? ] } 1&& ] unit-test @@ -690,7 +690,7 @@ PRIVATE> { 4 5 6 7 } { 8 9 10 11 } { 12 13 14 15 } -} matrix-except-all flatten sorted-histogram [ second ] map +} matrix-except-all flatten sorted-histogram values { [ length 16 = ] [ [ 9 = ] all? ] } 1&& ] unit-test diff --git a/extra/benchmark/knucleotide/knucleotide.factor b/extra/benchmark/knucleotide/knucleotide.factor index 67f563849c..34d5010f5d 100644 --- a/extra/benchmark/knucleotide/knucleotide.factor +++ b/extra/benchmark/knucleotide/knucleotide.factor @@ -19,7 +19,7 @@ CONSTANT: knucleotide-in "vocab:benchmark/knucleotide/knucleotide-input.txt" : handle-table ( inputs n -- ) clump - [ histogram sort-values reverse ] [ length ] bi + [ sorted-histogram reverse ] [ length ] bi '[ [ first write bl ] [ second 100 * _ /f "%.3f" printf nl ] bi