diff --git a/extra/benchmark/knucleotide/knucleotide.factor b/extra/benchmark/knucleotide/knucleotide.factor index f03e26675e..4e4ec72271 100644 --- a/extra/benchmark/knucleotide/knucleotide.factor +++ b/extra/benchmark/knucleotide/knucleotide.factor @@ -14,7 +14,7 @@ IN: benchmark.knucleotide CHAR: \n swap remove >upper ; : handle-table ( inputs n -- ) - clump + [ histogram >alist sort-values reverse ] [ length ] bi '[ [ first write bl ] @@ -22,7 +22,7 @@ IN: benchmark.knucleotide ] each ; : handle-n ( input x -- ) - [ nip ] [ length clump histogram ] 2bi at 0 or "%d\t" printf ; + [ nip ] [ length histogram ] 2bi at 0 or "%d\t" printf ; : process-input ( input -- ) [ 1 handle-table nl ]