From 929f0df1cce9e88071983b2da61752531137391b Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 13:27:13 -0700 Subject: [PATCH] benchmark.knucleotide: Fix usage of . --- extra/benchmark/knucleotide/knucleotide.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/benchmark/knucleotide/knucleotide.factor b/extra/benchmark/knucleotide/knucleotide.factor index 63a71fb809..67f563849c 100644 --- a/extra/benchmark/knucleotide/knucleotide.factor +++ b/extra/benchmark/knucleotide/knucleotide.factor @@ -18,7 +18,7 @@ CONSTANT: knucleotide-in "vocab:benchmark/knucleotide/knucleotide-input.txt" CHAR: \n swap remove >upper ; : handle-table ( inputs n -- ) - + clump [ histogram sort-values reverse ] [ length ] bi '[ [ first write bl ] @@ -26,7 +26,7 @@ CONSTANT: knucleotide-in "vocab:benchmark/knucleotide/knucleotide-input.txt" ] each ; : handle-n ( input x -- ) - [ nip ] [ length histogram ] 2bi at 0 or "%d\t" printf ; + [ nip ] [ length clump histogram ] 2bi at 0 or "%d\t" printf ; : process-input ( input -- ) [ 1 handle-table nl ]