steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.knucleotide: Fix usage of <clumps>.

db4
Doug Coleman 2013-03-23 13:27:13 -07:00
parent 980d5f44b2
commit 929f0df1cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/benchmark/knucleotide/knucleotide.factor
View File

@ -18,7 +18,7 @@ CONSTANT: knucleotide-in "vocab:benchmark/knucleotide/knucleotide-input.txt"
CHAR: \n swap remove >upper ; CHAR: \n swap remove >upper ;
: handle-table ( inputs n -- ) : handle-table ( inputs n -- )
<clumps> clump
[ histogram sort-values reverse ] [ length ] bi [ histogram sort-values reverse ] [ length ] bi
'[ '[
[ first write bl ] [ first write bl ]
@ -26,7 +26,7 @@ CONSTANT: knucleotide-in "vocab:benchmark/knucleotide/knucleotide-input.txt"
] each ; ] each ;
: handle-n ( input x -- ) : handle-n ( input x -- )
[ nip ] [ length <clumps> histogram ] 2bi at 0 or "%d\t" printf ; [ nip ] [ length clump histogram ] 2bi at 0 or "%d\t" printf ;
: process-input ( input -- ) : process-input ( input -- )
[ 1 handle-table nl ] [ 1 handle-table nl ]